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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
I FT . OR ANY OTHER 
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TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeepohat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: 
VAX/VMS RB730:RBO2/RB80 DISK DRIVER 
AUTHOR: 
G. ROBERT 21-JAN-1981 
MODIFIED BY: 
v03-008 RASO300 Ron Schaefer 19-Jun-1984 


Add DEVSM_NNM characteristic to DECHAR2 so that these 
devices will have the ‘‘node$"’ prefix. 


v03-007 ROW0211 Ralph 0. Weber 28-DEC-1983 
Change dev ice-dependent. ute definition base from UCB$W_BCR+2 
to UCBSK_LCL_DISK_LENGTH. 


v03-006 PRDO035 aul R. DeStefano 09-Sep-1983 
Added EXESLCLDSKVALID to function decision table. 


v03-005 PRD0026 LR. DeStefano 28-Jul-1983 
Modified ece sore ection, +4 4 so that ECC is vonly applied 
yen chore $ a sin bit ECC correctable error, or if there 
sa aulti ple bit E (* correctable error and the error cannot 
2 corrected using retries. 


v03-004 peonny? Paul R. DeStefano 22-Jun-1983 
fied FATALERR cout ne to return SSS$_PARITY only for 
errors that possibly indicate bad media. All other error 
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V03-003 GRR3003 
v03-002 kon0gde 
Added SDYNDEF. 
v03-001 graeies 
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Sees hTCeR which formerly returned SS$_PARITY now return © 


G ROBERT 16S 
RECORD PREVIOUS DISK ADDRESS IN ERROR LOG BUFFERS. 
Kathleen D. Morse 
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; ABSTRACT: 
THIS soo CONTAINS THE TABLES AND ROUTINES NECESSARY T 
PERFORM ALL pevic DEPENDENT PROCESSING OF AN 1/0 REQ UES 
FOR RB730:RB02/RBB80 DISK TYPES ON A VAX/VMS SYSTEM. 
THE DISKS HAVE THE FOLLOWING PHYSICAL GEOMETRY: 


TRACKS/ SECTORS/ BYTES/ MAXIMUM 
# CYL CYLINDER TRACK SECTOR BLOCKS 


RB 1 4 5 04 
meso if 32 38289388 
SINCE THE RBO2 S My SIZE IS ONLY id of OCK, LOGICAL TO cwrseem 
CONVERSION OF ne DISK ADDRESSES BY IOCSCVTLOGPHY IS DELAYED 


UNTIL STARTIO IS CALLED, AND THE DISK ADDR ESS IS DOUBLED PRIOR 
TO CONVER STON. 


N THE RB8O, THE LAST SECTOR IN EVERY TRACK IS RESERVED FOR 
"SKIP SECTORING', AND THE LAST TWO CYLINDERS ARE RESERVED 
FOR FIELD 5 Service. THE USER AVAILABLE RB8O GEOMETRY is THEREFORE : 
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; ? LOCAL MACROS 
MACRO 
.ENDM 
.MACRO 
.ENOM 


C fe, S 
UTES FC 


- MACRO 
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REQOPRNW 
JSB G* 1OCSREQDATAPNW 
REQOPRNW 
LOADUBAA 
JSB G* 1OCSLOADUBAMAPA 
LOADUBAA 
OUTINE WHI 

(OR R3) FUNCTION, AND BRANCHES 
EXFUNCL BDST,FCODE 

.1F NB FCODE 1S 
MOVZBL M#CD'FCODE,R3  :1F NB 
.ENDC [IF B - 
BSBW SC FEXL S EXECUTE 
.BYTE BDST-.-1 SWHERE T 
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~SBTTL LOCAL MACRO DEFINITIONS 


ig eee MODS 
AB 


-ENOR 
- LONG 


SETIPL 
BBC 


ENBINT 
BRB 


MSUAL = _THPSVAL “RB_CS_M. 


abe: 


; CKPWR 
: DISABLE INTERRUPTS, CHECK IF POWER HAS FAILED, 
MACRO CKPWR,DEST=RETREG, ?L1 


#IPLS$_POWER 
B$0_POWER,- jit CLR 
UCB$W_STS(R5S.L 


AX/VMS Macro v04-00 
DRIVER. SRCIDQDRIVER.MAR; 1 


= CH tage CHANNEL (IF NOT ALREADY OWNED), 


TO BDST ON ERROR 


FCODE NON-BLANK? 
- SPECIFY at FUNCTIO 


N 
SPECIFY FNTN IN EXISTING 
FUNCTION 
0 GO IF ERROR 


2 GENF 
: GENERATE FUNCTION TABLE ENTRY AND CASE TABLE INDEX SYMBOL 


*MODBIT" 


sRAISE TO POWER 


= NO POWER FAILURE 


' pbuéi FAILURE - RETURN TO SAVED 


DEST ¥ 
TRETURN 


FOR NO POWER FAILURE 
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LOCAL MACRO DEFINITIONS “SEP-1984 


$ oer 


BY DEFAULT 
«MACRO GETUNIT,DEST=R2 
CLRL 


BDR RVTYP 
; BRANCH ON DRIVE TYPE 


sMACRO BDRVTYP TYPE .DEST 
CMPB Ss #DT$_' TYPE, UCBS$B_DEVTYPE (RS) 
BEQL 


NAME WN OS ODNAUNE WO VWONOU ES WO 0O@ 
ee 


WWAIAILAA AI NIIP PO NOPONOPNINON 4 2 PO Os ne ae 


AX/VM 0 v04-00 
DRIVER S JDODRIVER. MAR; ' 


$i Ba — FROM UCB, PLACE IN SPECIFIED LOCATION OR 


EST :CLEAR DEST FOR UNIT NUMBER 
— INSV UCBSW_UNIT(RS), #8,#2,DEST ;PUT UNIT NUMBER IN DEST 
s INITIATE 
; INITIATE A HARDWARE FUNCTION BY CLEARING CONTROLLER READY. 
; PRESERVE THE ATTENTION AND INTERRUPT PENDING BITS BY CLEARING 
3 THEM (SINCE THEY ARE "WRITE ONES TO CLEAR’ THE FOLLOWING 
3 INSTRUCTION LEAVES THEM UNMODIFIED). 
.MACRO INITIATE 
BICL #RB_CS_M_CRDY- ZCLEAR CONTROLLER READY 
'RB-CS"M_ATN= 3+ AND PRESERVE ATTENTION BITS 
iRB"CS"M-IR,- owe AND | INTERRUPT REQUEST BIT 
RB_CS(R4S jeeeIN THE CSR 


COMPARE DRIVE TYPE 
BRANCH IF SPECIFIED TYPE 
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LOCAL SYMBOLS AND UCB EXTENSIONS 


00000007 
00000005 


000000¢9 


000000CC 


QOOOO0FA 


64 ; 
65 ;ADJACENCY OF UCB EXTENSIONS ASSUMED BY 


66 ; 
6 
68 SDEF UCBSL_0Q_CS -BLKL 1 
§ SDEF UCB$L_DQ_BA ~BLKL 1 
SDEF UCBSL_DQ_BC -BLKL 1 
4 SDEF UCBSL_DQ_DA -BLKL 1 
SOEF UCBSL_DQ_MP -BLKL 1 
75 SDEF UCBSL_DQ_FMPR -BLKL 1 
74 $DEF UCBSL"DQ-PMPR .BLKL 1 
75 SDEF UCBS$L_0Q_DPR -BLKL 4 
76 SDEF UCBSW_DQ_HDR1 -BLKW 1 
77 SDEF UCBSU-ba- HORS -BLKW 1 
78 SDEF UCBSU_DO_HORS -BLKw 1 
79 SDEF UCBSL_DQ_CURD -BLKL 1 
SDEF UCBSL_DQ ~PREVDA BLK 1 


c 


CBSK_DQ ; 
SbEFEND UCB 


; RB730: RBO2/RBBO REGISTER OFFSETS FROM 


oo 
OO NIA NEW SO OO NAME UW 9 ODNOUNE 
o 


SDEFINI RB 
SDEF -BLKL 1 
91 ROTELD RB_CS,0, a 
3 <DRDY. 
9 cf ove. 3. A>.- 
94 
95 <1E.{m>,- 


15-SEP=19 26 AX/VMS Macro v04-00 Pa ? 
ae eh rt a he a hes fl 75 sl 
39 .SBTTL LOCAL SYMBOLS AND UCB EXTENSIONS 
4 $ LOCAL SYMBOLS 
44 RB_NUM_REGS =? ;NUMBER OF DEVICE REGISTERS 
45 (DOES NOT INCLUDE COMMAND REG (REG 8) 
46 RB_AP_C_SLM =5 ?STATESSEEK LINEAR MODE (READY TO GO) 
: UCB OFFSETS WHICH FOLLOW THE STANDARD UCB FIELDS 
* SDEFINI UCB ;START OF UCB DEFINITIONS 
.=UCBSW_OF FSET+#1 [REDEFINE FOR LOCAL USE 
4 SDeF yCeSB DQ. FLA s SLOCAL DRIVER FLAGS 
5 VIELB START OF DQ FLAGS DEFINITIONS 
$ sip "M>,- : SEEK IN PROGRESS 
<ba “DIP. -M>.= : DATA CHECK IN PROGRESS 
8 <DO“ECC DEFER, .M>,- ; ECC CORRECTION DEFERRED TILL AFTER 
9 {END OF DQ FLAGS BIT DEFINITIONS 


DQ_REGDUMP AND READ HEADER CODE 


sCONTROL STATU 
[BUS ADDRESS 
38 OUNT 


—BDBaAana*A 


LENGTH OF EXTEND 
sEND OF UCB DEFIN 


CSR ADDRESS 
; START OF REGISTER DEFINITIONS 


SS ONT RO STATUS REGISTER (CSR) 
sSTART OF CSR BIT DEFINITIONS 
: DALY READY 

; FUNCTION CODE 

; RESERVED BITS 

; INTERRUPT ENABLE 
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LOCAL SYMBOLS AND UCB EX 


0 
TE 


38 pt J+" 
> + Par Se 


<DCK,,M>,- 


“E342 h>, ° 
<SSE,.4>,- 
<IR,.A>,= 


SDEF RB_BA -BLKL 1 
SDEF RB_BC -BLKL 1 
SDEF RB_DA -BLKL 1 


SDEF RB_MP -BLKL 1 
-VIELD RB_MP,0,<- 
<STA, $>.- 


< 4>,- 
cHte mS M>,- 
<WDE, .M>- 


> 
-VIELD RB_MP,0,<- 

<MRK, ,.M>,= 
“433° wm, ° 


> 
_VIELD RB_MP 0. <- 
<SEC, 
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tet READY 

DRIVE SELECT 

OPERATION INCOMPLETE 

DATA CRC _OR HEADER = 7 DATA ECC 
DATA LATE OR oe FOUND 
ISTENT MEMO 


ERRO! 
E ATTENTION BITS 
STATUS 

TOR ERROR INHIBIT 
TOR ERR 
TERRUPT REQUEST 
ENANCE MOD 
TYPE 1=RB80 B02 
TIC SKIP § Set ton” INHIBIT 
TIME OU iamiBIte (U=DIAG'S) 
FORMAT CONTROL 
RESERVED BITS 
END CSR BIT DEFINITIONS 


BUS ADDRESS REGISTER (BAR) 
sBYTE COUNT REGISTER (BCR) 


ibe ADDRESS REGISTER (DAR) 
iSTA my DAR BIT DEFINITIONS 


: TRACK 
3;_CYLINDER 
sEND OF DAR BIT DEFINITIONS 


MULTIPURPOSE REGISTER (MPR) 
:R80 2 ive sateen DEFINITIONS 


DaAPoBwIvvYMNsS 
o-cD Searnnw 


m 
r—Da wnn 


NT HEAD ERROR 
URITE DATA ERROR 


GET STATUS cee DEFINITIONS 
MARK (ALWAYS 1) 
GET status 
RESERVED 
SET 


;RB8O STATUS WORD pee INITIONS 
; CURRENT RB80 SECTO 
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Nn 1 
RB730:RBO2/RBBO DISK onives + 
S AND UCB EXTENSIONS - 
<,3>,° 
<fLT; m>,- 
<PLGV, ,M>,- 
SKE,, >, 
<ONCY, >, 
<DRDY, ,M>,= 
<WTP,,M>,= 
<,2>,° 
> 
SDEF RB_EC1 ~BLKL 
VIELD RB_EC1,0,<- 
<POS,1$>.- 
<,21>- 
> 
SDEF RB_EC2 
VIEL RB ECe 0,<- 
<PRT, 11>. = 
<,21>- 
> 
SDEF RB_CMD 


-VIELD RB 
<I 


SDEFEND RB 


; HARDWARE FUNCTION CODES 
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RESERVED 
E Ay y 


Mm 
a & 


TION REGISTER (E 
EC1 BIT DEFINIT 
BIT POSITION O 
T 
N 


POR) 
IONS 
F EC 


=o 
> 


C ERROR 


BIT DEFINITIONS 
REGISTER (EPAR) 
C2_ BIT DEFINITIONS 
F ECC ERROR BURST 
T 


Dd 

BIT DEFINITIONS 
sAUXILLARY COMMAND REGISTER 
sSTART OF CMD BIT DEFINITIONS 
; SUBSYSTEM CLEAR <-- = 

END CMD BIT DEFINITIONS 


;END RB730:RB80/RBO2 REGISTER DEFS 


z2v=-- 2Z2wM 


(SEEK =1) 
(GET STATUS) 


TION 
ITE CK 
] } DATA 
ITE HEADER (WHEN FMT BIT SET) 
AD DATA 

AD HEADER 
3GET STATUS (DRIVER INTERNAL USE) 


:NO 
GET STATUS/RESET 
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if .SBTTL STANDARD TABLES | 
408 ; 
409 : DRIVER PROLOGUE TABLE 
ra : THE DPT DESCRIBES DRIV ER PARAMETERS AND I/O DATABASE FIELDS 
0 aig ; THAT ARE TO BE INITIALIZED DURING DRIVER LOADING AND RELOADING 
00 414° 
00 415 DPTAB :DPT CREATION MACRO 
00 416 END=00 gE ND. SEND OF DRIVER LABEL 
009 41 ADAPTER=UBA, = :ADAPTER TYPE = UNIBUS 
418 sens M!SVP,- ;SYSTEM PAGE TABLE ENTRY REQ 
909 41 MAXUNITS=4 = FOUR DRIVES PER RB730 
000 420 DEF UN 4, i INTERROGATE of OUR DRIVES | 
000 421 DELIV tne DQ DELIVER SUNIT Test OUT INE 
000 4 : ueBs ize =UCB$K_DQ_ LEN,- SLENGTH OF 
0 0 4 ; NAME=DQDRIVER™ [DRIVER NAME | 
80 : 425 DPT_STORE INIT ;START CONTROL BLOCK INIT VALS. 
00 4 : DPT-STORE DDB. DDBSL_ACED.L., SSAANEVIN [DEFAULT ACP NAME 
00 Be DPT-STORE DDB, ODBSL_ACPD+3,8, DDBSK *PACK SACP CLASS 
043 4 ; DPT-STORE UCB,UCB$B_FIPL,8,8 [FORK IPL 
0047 4 DPT"STORE UCB,UCBSL_DEVCHAR,L,- : DEVICE EHARACTERISTICS | 
0047 430 <DEVSM_FOD- : FILES ORIENTED | 
0047 431 'DEVS$M_DIR= : DIRECTORY STRUCTURED 
0047 4 g iDEVSM-AVL= + AVAILABLE | 
0047 43 i DEVSM“ELG- : ERROR LOGGING | 
0047 434 i DEVSM~SHR=- + SHAREABLE | 
047 435 i DEVSM~1DV- + INPUT DEVICE | 
047 436 iDEVSA_ODV- : OUTPUT DEVICE 
047 437 VSM"RND> ; RANDOM ACCESS | 
04E 438 DPT_STORE é uce OC ocast -DEVCHAR2,L,-; DEVICE CHARACTERISTICS | 
af 439 : PREFIX NAME WITH ‘'nodeS 
055 440 DPT_STORE UCB, ‘neo DEVCLASS,B,DC$_DISK ;DEVICE CLASS 
0059 9441 DPT-STORE UCB. UCBs DE VBUFS $12,0,512 [DEFAULT BUFFER SIZE | 
O05 44g DPT-STORE UCB,UCB$B_DIPL,B,21 :DEVICE IPL 
0062 44 DPT“STORE U ta tr UCB$B_ERT THAR X.8,8 ;MAX ERROR RETRY COUNT | 
9066 444 DPT“STORE UCB,UCB$L~DQ_CURDA.L,-1 SCURRENT DISK ADDRESS | 
G9ep 446 DPT_STORE REINIT :START aGONTROL BLOCK RE-INIT 
060 44 DPT-STORE CRB,CRBSL_INTD+4,D,D SINTERRUPT SERV. ROUT. ADDRESS 
0 448 DPT“STORE CRB, CRBSL— Intoovec$e CINITIAL, =; CONTROLLER INIT ADDRESS 
07 449 D Dg B730_INIT oa 
7 430 DPT_STORE CRB, CRBSC INTD#VECSL _UNITINIT,= :UNIT INIT ADDRESS 
O77 45 0,00 ONIT_INIT . | 
4s 43¢ DPT_STORE DDB, DOBSC_DDT7D,DQSDDT tbT ADDRESS | 
6 1 634 DPT_STORE END ZEND OF INITIALIZATION TABLE 
4 8 
639 ; DRIVER DISPATCH TABLE 
138 : THE DDT LISTS ENTRY POINTS FOR DRIVER SUBROUTINES WHICH ARE 
$69 ; CALLED BY THE OPERATING SYSTEM. 
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NCTB=0G “FUNCTABLE, = 


Aawe 
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¢ DIAGNOSTIC BUFFER SIZE = <<7 RB730 RE 
‘ omeens oo 


oe 
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a LONG 


3 
489 
470 
471 
ee 
47 
0 474: 
475 
0 476 
0 47 
0 478 
0 47 
0 480 4 BYTES/ 
0 481 TO SAVE SOFT 
0 4 é 
00 4 
00 484 ; 
4 5 : HARDWARE FUNCTION CODE TABLE 
0 4 ; THIS TABLE MERGES THE FUNCTION 
038 488: INTERRUPT ENABLE BIT AND GENERA 
rts 3 INDEX SYMBOL. THIS IS AN ORDER 
0038 491 FTAB: GENF = F_NOP 
003¢ 49¢ GENF — FUNLOAD 
0040 49 GENF F-SEEK,CRDY 
0044 49% GENF  F-RECAL, CRDY 
048 495 GENF  FIORVCLR 
4 496 GENF § F-RELEASE 
050 49 GENF  FTOFFSET 
054 498 GENF  F-RETCENTER 
058 499 GENF  FPACKACK 
o5¢ 200 GENF —- F“STARTSPNDL 
06 1 GENF tual TEDAta, CRDY 
064 0¢ GENF § FWRITEDATA ERDY 
068 0 GENF § FREADDATA, CRD 
¢ 04 GENF FTURITEHEAD eCRDY, FMT> 
0 05 GENF § FTREADHEAD, CRDY 
or 06 GENF  § FIWRITETRACKD 
78 GENF § FTREADTRACKD 
07¢ 508 GENF § F~AVAILABLE 
080 509 


GISTER LONGWORD 
af LONGWORD 


* 4 BY TES/LONGHORD> 
ERROR LOG BUFFER SIZE = ee? dt B D FOR F REGISTERS. 


EGIST 


LONGWORD> + BYTES N 


WARE REGISTERS> 


i: BITS WITH 
‘| 


Dw 
aon 
ws 


THE 


HE CASE TABLE 
TABLE 


DD oe 
“oc Ss=2a52 
=—=CcoO Dv _mm 
m~mow 
> «Baal 


U 


04-00 
DQDRIVER.MAR; 1 (1) 


oso wr 
Mm 


CB Fl 
REGDUMP> 
“FOR E 


Page 11 


DEVICE 


omwn 


IAG BUFFER 


:BYTES IN 
LOG BUFFER 


ae 


ELD LONGWORDS 


A 
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3NO-OP 
+ UNLOAD VOLUME (GET STATUS/RESET) 


RECAL 
3D 


PACK ACKNOWLE 
START SPINDLE 
sWRITE CHECK 
ya he 


READ 
;WRITE OAEADERS 


DGE ( 
(NOP 


RATE 
LEAR (GET STATUS/RESET) 
RT (NOP) 


NOP ) 
GET STATUS/RESET) 
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viva FUNCTION Bidtith TABLES mies P 88:43:48 LORIVER. SREIDODRIVER.MAR: 1 ° (1) 
tf .SBTTL FUNCTION DECISION TABLES | 
12 3 
1% : FUNCTION DECISION TABLE 
1 ; THE FDT LISTS VALID FUNCTION CODES, SPECIFIES WHICH 
17 ; CODES ARE BUFFERED, AND DESIGNATES SUBROUTINES TO 
18 ; PERFORM PREPROCESSING FOR PARTICULAR FUNCTIONS. | 
0° | 
1 DO_FUNCTABLE: 
; FUNCTAB ,- SLIST LEGAL FUNCTIONS | 
<NOP ,- ; NO-OP 
0 4 UNLOAD, = 3 UNLOAD 
0 5 SEEK,= + SEEK 
0 : RECAL,= + RECALIBRATE DRIVE 
0 DRVCLR,= : DRIVE CLEAR 
080 : PACKACK,= + PACK ACKNOWLEDGE 
080 SENSECHAR,- + SENSE CHARACTERISTICS | 
080 0 SETCHAR, = : SET CHARACTERISTICS | 
0080 1 SENSEMODE ,- : SENSE MODE 
0080 3 SETMODE ,- + SET MODE | 
0080 WRITECHECK,= : WRITE CHECK 
0080 i READHEAD, = ; READ HEADER 
9080 5 READLBLK, = : READ LOGICAL BLOC 
0 : WRITELBLK,- $ WRITE LOGICAL BLOCK | 
00 0 é READPBLK, - + READ PHYSICAL BLOCK 
0 538 WRITEPBLK,- + WRITE PHYSICAL BLOCK 
0 0 9 READVBLK,- : READ VIRTUAL BLOC 
40 WRITEVBLK,- : WRITE VIRTUAL BLOCK 
90 0 541 WRITEHEAD,- : WRITE DISK HEADERS 
0 4¢ AVAILABLE,- : AVAILABLE 
0 4 ACCESS, = : ACCESS FILE / FIND DIRECTORY ENTRY | 
0 4 ACPCONTROL, - t ACP CONTROL FUNCTION 
45 CREATE,= : CREATE FILE AND/OR DIRECTORY ENTRY 
080 46 DEACCESS,- : DEACCESS FILE | 
0 4 DELETE,- + DELETE FILE AND/OR DIRECTORY ENTRY | 
0 48 MODIFY.= : MODIFY FILE ATTRIBUTES | 
0 49 MOUNT = + MOUNT VOLUME | 
0 51 FUNCTAB ,- BUFFERED FUNCTIONS 
0 26 <NOP,- 3 NO-OP 
0 g UNLOAD, = + UNLOAD 
4 EEK,=- : SEEK 
5 RECAL,- ; RECALIBRATE 
6 DRVCLR,- > DRIVE CLEAR 
PACKACK, = + PACK ACKNOWLEDGE 
58 AVAILABLE, = > AV LE 
5 SENSECHAR, = > SENSE CHARACTERISTICS 
60 SETCHAR, = + SET CHARACTERISTICS 
61 SENSEMODE ,- : SENSE MODE 
6¢ SE TMODE ,- : SET MODE 
6 ACCESS, - + ACCESS FILE / FIND DIRECTORY ENTRY 
64 ACPCONTROL,- + ACP CONTROL FUNCTION 
65 CREATE,- : CREATE FILE AND/OR DIRECTORY ENTRY 
66 DEACCESS,- : DEACCESS FILE 
f DELETE,- : DELETE FILE AND/OR DIRECTORY ENTRY 
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v04= FUNCTION DECISION TABLES EP=-1984 00:12: DRIVER. SRCJDQDRIVER.MAR; 1 (1) 
6 MODIFY,= : MODIFY FILE ATTRIBUTES 
$ MOUNT = + MOUNT VOLUME 
7 FUNCTAB +ACPSREADBLK,- ;READ FUNCTIONS 
9 te <READHEAD, = + READ HEADER 
9 7 READLBLK, - ; READ LOGICAL BLOCK 
9 74 READPBLK, = + READ PHYSICAL BLOCK 
3 {3 READVBLK= + READ VIRTUAL BLOCK 
9C 8 FUNCTAB +ACPSWRITEBLK,- :WRITE FUNCTIONS 
9¢ 28 <WRITECHECK, = : WRITE CHECK 
9¢ 657 WRITEHEAD, = + WRITE HEADER 
9¢ 0 WRITELBLK,- + WRITE LOGICAL BLOCK 
9¢ 1 WRITEPBLK.= + WRITE PHYSICAL BLOCK 
3¢ j WRITEVBLK= + WRITE VIRTUAL BLOCK 
OA 4 FUNCTAB +ACPSACCESS,- sACCESS FUNCTIONS 
A 5 <ACCESS, = t ACCEESS FILE / FIND DIRECTORY ENTRY 
A 6 CREATE™ : CREATE FILE AND/OR DIRECTORY ENTRY 
0084 8 FUNCTAB +ACPSDEACCESS,- sDEACCESS FUNCTION 
ates 89 <DEACCESS- + DEACCESS FILE 
0c 91 FUNCTAB *+ACPSMODIFY,- sMODIFY FUNCTIONS 
0¢ 3¢ <ACPCONTROL.- : ACP CONTROL FUNCTION 
OC 9 DELETE,- t DELETE FILE AND/OR DIRECTORY ENTRY 
90¢9 34 MODIFY= : MODIFY FILE ATTRIBUTES 
Occ %6 FUNCTAB +ACPSMOUNT, = ;MOUNT FUNCTION 
occ ? <MOUNT = : MOUNT VOLUME 
00D 3 FUNCTAB +EXESLCLDSKVALID,- SLOCAL DISK VALID FUNCTIONS 
0D8 600 <UNLOAD, = SUNLOAD VOLUME 
9p 601 AVAILABLE, = [UNIT AVAILABLE 
D 60¢ ,PACKACK= [PACK ACKNOWLEDGE 
0E4 604 FUNCTAB +EXESZEROPARM, - ;ZERO PARAMETER FUNCTIONS 
0&4 605 <NOP, = + NO-OP 
iF, 6 8 UNLOAD, = + UNLOAD 
£4 6 RECAL,- + RECALIBRATE 
0&4 6 8 DRVCLR,- : DRIVE CLEAR 
Des 6 PACKACK,= + PACK ACKNOWLEDGE 
E4 610 AVAILABLE™ + AVAILABLE 
F el FUNCTAB +EXESONEPARM, - SONE PARAMETER FUNCTION 
i 613 <SEEK- : SEEK 
FC 615 FUNCTAB +EXESSENSEMODE ,- :SENSE FUNCTIONS 
FC 616 <SENSE CHAR, : SENSE CHARACTERISTICS 
FC 61 SENSEMODE : SENSE MODE 
1 eis FUNCTAB +EXESSETCHAR,- ySET FUNCTIONS 
1 é 9 <SETCHAR, = : SET CHARACTERISTICS 
1 6 SE TMODE = : SET MODE 
1 § » 
114 6 
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~SBTTL START 1/0 ROUTINE 
+e 
; DQ. STARTIO = START 1/0 ROUTINE 
: FUNCTIONAL DESCRIPTION: 


THIS FORK PROCESS IS ENTERED FROM THE EXECUTIVE AFTER AN 1/0 REQUEST 
PACKET HAS BEEN DEQUEUVED, AND PERFORMS THE FOLLOWING: 


= ACTIVATES THE DISK AFTER SETTING UCB FIELDS gata TAIN 
UBA AND CONTROLLER RESOURCES, AND SETTING RB7 Sfers 


- WAITS FOR AN INTERRUPT 


- REGAINS CONTROL AFTER THE ISR SERVICES THE INTERRUPT, AND 
RE-ACTIVATES THE DISK IF THE ORIGINAL FUNCTION 
NOT YET COMPLETE, OR 
- COMPLETES THE 1/0 REQUEST BY RELEASING RESOURCES, 
SETTING STATUS CODES, AND RETURNING TO THE EXEC. 
INPUTS: 
R3 - IRP ADDRESS (1/0 REQUEST PACKET) 
R5 - UCB ADDRESS (UNIT CONTROL BLOCK) 
IRPSL_MEDIA - PARAMETER LONGWORD (LOGICAL BLOCK NUMBER) 
OUTPUTS: 
RO - FIRST 1/0 STATUS LONGWORD: STATUS CODE < BYTES XFERED 
R1 - SECOND 1/0 STATUS LONGWORD: 0 FOR DISK 


THE 1/0 FUNCTION IS EXECUTED. 
ALL REGISTERS EXCEPT RO-R4 ARE PRESERVED. 


DO_STARTIO: :START 1/0 OPERATION 
MOVL  UCBSL_DQ_CURDA(RS),- | :SAVE CURRENT DISK ADDRESS 
UCBSL~DQ-PREVDA(RSS +... FOR ERROR LOGGING 


: PREPROCESS UCB FIELDS 
PREPROCESS: SALTERNATE ENTRY NAME 
MOVL  IRPSL_MEDIA(R3),- ; STORE DISK ADDRESS 
U st MEDIACRS) 
BORVTYP RB80,TO :RANCH IF RB80 
BBS tase RP $v CURE SIF SET = PHYSICAL 1/0 
MULL3 vee sneDTAtRS) RO :Rob2 HAS V2 SECTOR PER BLOCK 
MOV ZBL Ut B SECTORS (RS), a) :GET NUMBER F SECTORS PER TRACK 
CLRL OR [CLEAR HIGH PaRi OF DIVIDEND 
EDIV R2,RO,RO,UCBSL_MEDIA(RS)” ; CALCULATE SECTOR NUMBER AND STORE 
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10$ 


30$: 


{a 
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CENTRAL 


FDISPATCH: 
MOVL 


10$: 


BBS 
BBS 
MOVZWL 
CLRW 
BRW 


a, 
MOVZBL 
CASE 


U teh -10 TRACKS(RS), R2 :GET NUMBER OF TRACKS PER CYLINDER 
CAL CULAT TRACK AND CYLINDER 
Bease, *MEDIASTOR ‘STORE TRACK NUMBE 
ROUCBSL-MEDIAS2(RS) [STORE CYLINDER NUMBER 
ucBSB_ RIMAX(R ),- ;INITIALIZE ERROR RETRY COUNT 
UCBSB-ERTCNT(R5) 
UCBSW"BCNT (RS) ,UCBSW_ Bcring) SINITIALIZE REMAINING BYTE COUNT 
IRPSW~FUNC (RS) ,UCBSW FUNC (RS) ‘SAVE FUNCTION CODE AND MODIFIERS 
#IRPSO_FCODE,- XTRACT 1/0 FUNCTION CODE 
#IRPSS-FCODE, IRPSW_ FUNC (RE) RI oe 
R ycese FEX(RS) i STORE FUNCTION DISPATCH INDEX 
416 _SEER,R1 SSEEK FUNCTION? 
30$ SIF NEQ = NO 
#16, UCBSL MEDIACRS) ,~ SSHIFT CYLINDER ADDRESS 
cag EDTA(RS) :..eINTO HIGH WORD 
#UCBSA_DIAGBUF ~ [CLEAR DIAGNOSTIC BUFFER PRESENT 
tuce ECC ¢...AND ECC CORRECTION MADE FLAGS 
CB$W_ BEV stscas) t..eIN DEVICE STATUS WORD 
ittt DIA Sour i1f CLR = NO DIAG BUFFER 
IRPSW.STS(R3) .FDISPATCH :... 
#UCBSA_DIAGBUF , ucesw. DEVSTS(RS) :SET DIAG BUFFER PRESENT 
FUNCTION DISPATCH 
sFUNCTION DISPATCH 
UCBSL IRPCRS), R3 'GET IRP ADDRESS 
#IRPS HYS1O. SIF SET = PHYSICAL 1/0 FUNCTION 
IRPSW erst Bo 10$ Rone 
bie Cae VALID, - :1F SET = VOLUME SOFTWARE VALID 
UCBSW sTstrss 10$ Poa 
#SS$_JOLINV,RO :SET VOLUME INVALID STATUS 
UCBS@_BCNT(RS) ;SET ZERO BYTES TRANSFERRED 
FuNe cx? ;AND RETURN TO CALLER 
UCB$B_DQ_FLAGS(RS) :CLEAR LOCAL FLAGS 
UcBSB_FE FE x (R5) ,R3 [GET F UNCTION bISPATCH INDEX 
SDISPAT cH O FUNCTION HANDLING ROUTINE 
NOP. - : NO OP ATSON 
UNLOAD, = : UNLOA y 
SEEK, = > SEEK 
RECAL,- + RECAL IBRATE 
DRVCLR,- : DRIVE CLEAR 
RELEASE, - : RELEA SE 
OFFSET, - : OFFSET HEADS 
RETCENTER,- : RETURN TO CENTER 
PACKACK,=- t PACKA 
STARTSPNDL,- + START SPINDLE 
WRITECHECK.- + WRITE CHECK 
WRITEDATA, - : WRITE DATA 
READDATA, - + READ DATA 
WRITEHEAD, = : WRITE AHEADER 
READHEAD,- : READ HEADER 
WRITETRACKD,- t WRITE TRACK DESCRIPTOR 
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viva ht START 1% ROUT INE =SEP-1984 83 1 +4 YORIVER.SREIDODRIVER.MAR: 1 . 
1AC 739 READTRACKD,= ; READ TRACK DESCRIPTOR 
1AC 40 AVAILABLE ,- t UNIT AVAILABLE 
1AC 4 > 
ibe 908 
104 744 ; 10$_UNLOAD AND I0$_AVAILABLE INDICATE THE UNIT IS NOT MOUNTED 
104 745 ; SO QE CLEAR SOFTWARE VOLUME VALID. [0$_PACKACK INDICATES THAT 
1D4 246 ; SOFTWARE IS READY TO MOUNT OR ACCESS VOCUE SO WE SET SOFTWARE 
1D4 747 ; VALID. ON PACKACKS'S WE FOLLOW THIS WITH A GET STATUS AND RESET. 
1D4 148 : IF THE OBTAINED STATUS INDICATES THAT THE DRIVE IS NOT READY 
1p4 138 ; THEN VOLUME VALID WILL BE CLEARED. 
1046751 
146? : PACKACK: sPACK ACKNOWLEDGE 
08 E2 0104 7 BBSS  #UCBSV_VALID,- SSET SOFTWARE VOLUME VALID 
OE 64 A 16 754 UCB$W_STS(RSS ,NOP apt 
109 = 755 EXFUNCL RETRYERR,F_DRVCLR :GET STS AND RESET, RETRY ERRORS 
43.11 3 136 R NORMAL SSUCCESSFUL = EXIT WITH NORMAL STATUS 
iE 736 UNLOAD: UNLOAD 
162 759 AVAILABLE: [UNIT AVAILABLE 
08 ES O1F2 760 BBCC #UCBSV_VALID,- [CLEAR SOFTWARE VALID 
00 64 A TE 761 am UCB$W_STS(R5) ,NOP sop 
O1E7 188 RELEASE: SRELEASE PORT (NOP) 
O1E7 764 OFFSET: [OFFSET HEADS (NOP) 
O1E7 765 RETCENTER: SRETURN TO CENTERLINE (NOP) 
iE? 766 STARTSPNDL: SSTART SPINDLE (NOP) 
1E7 767 WRITETRACKD: SWRITE TRACK DESCRIPTOR (NOP) 
O1E7 768 READTRACKD: [READ TRACK DESCRIPTOR (NOP) 
1€7 769 EXFUNCL RETRYERR,F_NOP ‘EXECUTE A HARDWARE NOP, RETRY ERRORS 
3 «O11 IE 770 BRB NORMAL SSUCCESSFUL = EXIT WITH NORMAL STATUS 
1F ak: SEEK: 7SEE 
170 «773 RECAL: sRECALIBRATE 
169 774 DRVCLR: ‘DRIVE CLEAR (GET STATUS & RESET) 
01FO 775 WRITEHEAD: [WRITE HEADERS (AND DATA) 
1F0 176 EXFUNCL RETRYERR SEXECUTE FUNCTION = RETRY IF FAILURE 
2F 11 166 Ah BRB NORMAL SSUCCESSFUL - EXIT WITH NORMAL STATUS 
166 779 WRITECHECK: sWRITE CHECK 
176 780 READHEAD: [READ HEADER 
4000 8F AA O1F6 781 BICW  #1O$SM_DATACHECK,- [CLEAR DATA CHECK REQUEST- 
009A C5 IEA f : UCB$W~ FUNC (RS) [TO PREVENT EXTRA WRITE CHECK 
1FD 784 WRITEDATA: :WRITE DATA 
1FD 785 READDATA: ‘READ DATA 
OOBE CS «Bl «CORD SC? 6 CMPW =—-—- UC BSL_MEDIA+2(R5),- [NEW CYLINDER? 
OOF 4 cs Ba. CB$L~DG_CURDA+2(R5) - Phos 
-F 12 4 7 8 BNEQ ‘BRANCH IF SO 
7 BORVTYP RB80, TRANSFER ‘BRANCH IF RB80 
9080 C5 91 7 0 CMPB) —s UCCBSL_MEDIA+1(R5),- [OR NEW TRACK? (MUST DO SEEK TO 
OF3 C¢ 10 79 UCB$L~DQ_CURDA+1 (RS) t..eSELECT HEAD ON RBO2) 
OC 13 0213 79 TRAN SBRANCH IF NO SEEK REQUIRED 
15 793 20$: EXFUNCL RETRYERR,F SEEK TEXECUTE EXPLICIT SEEK - RETRY IF ERROR 
53 0092 (5 9A if 19h UCBSB_FCK(R5) .R3 SRESTORE FUNCTION DISPATCH INDEX 
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DRIVE HAS BEEN POSITIONED -- NOW EXECUTE THE TRANSFER 


FER: 
EXFUNCL CHECKECC 


OPERATON COMPLETION 


; MOVZWL #SS$_WASECC,RO 
#ucB 


V_ECC 
ucesu DEVS tScas), 10$ 

MOVZWL tat ta ORMAL ,RO 

BRW FUNCRT 


sEXECUTE TRANSFER FUNCTION 


: SUCCESSFUL orice tte C 
;ASSUME CORRECTED ECC E 

;BRANCH IF CORRECTED EC 

3.2.ERROR OCCURED 

SET NORMAL COMPLETION STATUS 
SFUNCTION EXIT 
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RETRIABLE ERROR ANA ye 382 83:13 +3 DRIVER. SRE SDODRIVER.MAR: 1 ” it 
«SBTTL RETRIABLE ERROR ANALYSIS 
: A RETRIALABLE ERROR HAS OCCURED ON A TRANSFER 
; CHECK TO SEE IF ECC CORRECTION CAN BE APPLIED 
: R1 - CSR AT TIME OF ERROR 
3 R2 - MPR OF GET STATUS FOLLOWING ERROR 
tHECKECC: 
1 € CMPZV #RB_CS_V_FCODE,- ;WAS THIS A READ DATA OPERATION? 
06 51 03 #RB~CS-S-FCODE,R1,- Sees 
#<F-REROBATA @ -1> 
6—E 12 BNEQ RETRYERR [BRANCH IF NOT 
BORVTYP RBO2,RETRYERR [BRANCH IF foe 
B3 BiTlw #RB_CS_M_DE- SDRIVE ERRO 
'RB-CS-M_NXM= t4eOR NON EXISTENT MEMORY 
iRB-CS-M~DLT- t..0OR DATA LA 
ik S"M~OPI,- a OPERATION INCOMPLETE (HDR CRC) 
12 BNEQ  RETRYERR ANCH IF SO 
5D 51 OB €1 C RB_CS_V_DCK,R1,RETRYERR: SBRANCH IF NOT A DATACHECK 
14 ED CMPZV  #RB-CS-V"ECS.- [COMPARE ECC STATUS BITS (START) 
92 RB-CS"S ECS.- t.0e (SIZE) 
03. «1 (FROM) 
“61 :...70 BINARY 11 (BOTH SET) 
56 12 BNEQ  RETRYERR ‘BRANCH IF NOT CORRECTABLE 
T IS A SINGLE BIT 
RT ¢ F IT IS A MULTIPLE 
ERROR THEN FINISH PROCESSING THE GOOD BLOCKS IN FRONT 
HE ERROR, D THE ERROR BLOCK UNTIL THE ERROR IS 
ECTED TRY ¢ IS ZERO. IF THE RETRY COUNT 
REACHES ZERO THEN APPLY CORRECTION. 
8000 BF AA BICW #RB_CS M_CE,- ZCLEAR COMBINED ERROR IN 
oo0cc C5 UCBSL *50- CSRS) 3...CASE WE CONTINUE 
50 7—E AS 3¢ MOVZWL Matty “BCATeRS). RO sFETCH ORIG NAL XFER COUNT (AS CORRECTED 
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1 
E 
5 ¢ TES TRAN 
50 00000200 8 ¢ SUBL ‘BACKUP TO LAST OcK 
oF 68 BLSS setavehee :NEGATIVE, SOMETHING WRONG, TRY AGAIN 
50 OF BF OB $ BITw #*X1FF,RO [WHOLE BLOCKS TRANSFERED? 
1 BNEQ  RETRYERR ‘NO, SOMETHING WRONG, TRY AGAIN 
7E 7D 027 MOva -(SP) [SAVE WORK REGISTERS 
52 00C6 CS OB EA 0277 FFS #0.811,UCB$W_EC2(R5).R2 :FIND THE FIRST ERROR BIT SET IN THE 
7E «B86 +..ECC PATERN REGISTER 
53 OA 52 C3 027 6 SUBL3 -R2, #10, R3 3GET THE QhUMBER OF SET ERROR Bits IN 
H NDER OF THE PATTERN 

9 BLEQ =-:'108 ‘BRANCH rf NO OTHER BITS cet 
‘ D6 INCL Re : POINT T BIT IN PATERN 

$52 00c6 cS 53 EF 6 EXTZ2V R2,R3,UCBSW_EC2(R5).R2 :1S THERE MORE THAN ONE ERROR BIT SET? 
0c «BA D 68 10$:  POPR #*mcr$,R2> SRESTORE WORK REGISTERS WITHOUT 

F : +... AFFECTING FLAGS 
10 18 F 0 BLEQU APPLY_ECC :]F ONLY ONE ERROR BIT SET, THEN APPLY 
1 871 +...EC® CORRECTION 

04 88 0291 872 BISB $#UCBSM_DQ_ECC_DEFER.- SIGNAL ECC CORRECTION DEFERRED 
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eee 
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= VAX/VMS RB730:RB02/RBB0 DISK DRIVER so P-1984 63:43:62 mes Macro v04-00 Page 19 
RETRIABLE ERROR ANALYS!S -SEP=1984 00:12: DRIVER. SRCIDQDRIVER.MAR; 1 (1) 
00c9 CS 95 73 UCBSB_DQ_FLAGS(RS) : 
7E AS 60200 BFA 3 75 SUBW © #*X200,UCBSW_BCNT(RS) | ;SHORTEN XFER BY ONE PAGE TO EXCLUDE ECC 
9C i: teeeBLOCK FROM NUMBER OF BYTES 
9¢ «87 +. TRANSFERRED 
OC 13 029¢ 28 BEQL  #$RETRYERR ;BRANCH IF NO GOOD DATA WAS TRANSFERRED 
9— 87 t..-AND ATTEMPT TO RETRY 
034D «31 H 0 BRW WRITECHK SOTHERWISE, BRANCH AND PERFORM A 
al 1 +. eWRITECHECK 
Al § APPLY_ECC: 
00000000. ¢F 16 Al 4 JSB G*1OCSAPPLYECC sAPPLY ECC CORRECTION 
358 A 5 BRW UPDATE ‘CONTINUE TRANSFER BUT SUPPRESS 
AA 6 +.» «WRI TECHECK 
AA BBB 
0 AA 89 ; A RETRIABLE ERROR HAS OCCURED 
0 AA 891: R1 = CSR AT TIME OF ERROR 
AA 3 ; R2 - MPR OF GET STATUS FOLLOWING ERROR 
AA 894° 
AA 895 RETRYERR: 
0080 (5S. («97 ~«4(O2AA 89 DECB UCBS$B_ERTCNT(RS) ZANY RETRIES LEFT? 
08 14 O2A 9 BGTR  RESETORIVE SIF GTR = 
02 €4 028 98 BBSC # #UCBSV_DQ ECC_DEFER,- CORRECT THE ERROR WITH ECC IF WE CAN 
00c9 cs 8 99 UCBSB_BQ FLAGS(RS) ,~ ; 
OA 11 0 Bs 901 BRB FATALERR SOTHERWISE, FATAL ERROR 
B8 9035; 
8 2 4 : ATTEMPT TO RESET STUBBORN DRIVE ERRORS BEFORE EXECUTING THE FUNCTION AGAIN 
BB 906 * 
B8 907 RESETDRIVE: 
B8 908 EXFUNCL RETRYERR,F_RECAL ;RECALIBRATE THE DRIVE 
FECB 31 0 BF 309 BRW FDISPATCH [RETRY FUNCTION 
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| DODRIVER = VAX/VMS RB730:RB02/RBB0 DISK DRIVER 15-SEP-1984 23:49: AX/VMS Macro V04-00 
viva ti FATAL ERROR ANALYS] ramet} 88:13:46 LORIVER. SREIOODRIVER.MAR: 1 
¢ 3 ~SBTTL FATAL ERROR ANALYSIS 
C 16; 
c 13 ; A FATAL ERROR HAS OCCURED 
¢ i$ : R1 - CSR AT TIME OF ERROR OR 
¢ 18 ; R2 - MPR OF GET STATUS FOLLOWING ERROR 
¢ 3 0 FATALERR: -UNRECOVERABLE ERROR 
¢ ; 1 ASSUME RB_MP_V_WL EQ RB_MP_v_wTP ZASSUME RBO2 AND RBSO USE 
¢ ; 'SAME BIT FOR WRITE LOCK 
13 5 Dp €1 ¢ 3 ra BBC #RB_MP_V_WL,R2, 30S ZBRANCH IF DRIVE IS NOT WRITELOCKED 
50 O25c BF 3c 0266 925 MOVZ2WL #SSS_WRITLCK,RO TASSUME WRITELOCK ERROR STATUS 
1 ta 9 6 CMPB Ss #@CDF “WRITEDATA,- [WAS THIS A WRITE DATA OPERATION? 
0093 ¢ 9 UCBSB_CEX(RS) ie 
6F 13 D 9 $ BEQL FUNCXT sBRANCH IF SO 
OD 91 Oop2 9 CMPB sé WRITEHEAD, ~ [WAS THIS A WRITE HEADER OPERATION? 
0093 C D 930 UCBSB_CEX(R5) Fao 
48 «13 4 4 1 BEQL FUNCXT sBRANCH IF SO 
50 0254 8F 3¢ 0209 9 § 30$: MOVZWL #SS$_VOLINV.RO ;ASSUME VOLUME INVALID 
DE 3 ‘ BDRVTYP RBO2,;50$ SBRANCH IF RBO2 
& 9 § 3 
ce 4 3 RBBO ERROR ANALYSIS 
rh ee & 9 } : BRB 70$ ;CONTINUE IN COMMON 
oy 
E6 ae8 s 
EG 343 : RBO2 ERROR ANALYSIS 
£& 945° 
37 52. 09 0 £6 946 50$: BS #RB_MP_V_VC,R2,FUNCXT  ;IF SET = VOLUME INVALID 
50 g Sc BF 60 3C CO2EA 9 MOVZWL #SSS_WRITLCK,RO SASSUME WRITE LOCK ERROR STATUS 
04 OD €1 O2EF 348 BBC _AP_V_WL,R2, 708 [IF CLR = VOLUME NOT WRITE LOCKED 
2a 52 0A EO O83 349 BBS @RB-MP“V~WGE,RO,FUNCXT [IF SET = WRITE GATE ERROR 
50 005¢ er 3c 02F7 951 708:  MOVZWL #SS$_DATACHECK,RO sASSUME DATA CHECK ERROR STATUS 
1 €1 OFC 93¢ BBC #UCBSV_DQ DIP,- [BRANCH IF NO DATA CHECK IN PROGRESS 
08 00C9 C5 FE 9 UCB$B_6Q_FLAGS(RS),80$ :... 
04 $1 OR e1 954 BBC #RB_CS_V"OP1,R1,80$ [DATA CHECK INDICATED BY OPI AND 
17 £0 $ 3H BBS #RB-CS"V“DCK.R1.FUNCKXT ;... DATA CHECK SET 
50 girs er 3¢ A 9 $ 80$:  MOVZWL #SS$_PARITY,RO sASSUME PARITY ERROR STATUS 
OE 51 E0 OF 958 BBS #RB_CS_V_DCK,R1.FUNCXT SIF SET = CRC ERROR 
50 908c af 3¢ 3 960 90$ MOVZWL #SS$_DRVERR,RO ZASSUME DRIVE ERROR STATUS 
05 51 é 18 36 BBS #RB_CS_V_DE.R1.FUNCXT IF SET = DRIVE ERROR 
50 0054 BF 3¢ \¢ se8 MOVZWL #SS$_CTRLERR,RO yASSUME CONTROLLER ERROR STATUS 


-- 


"1 | 
= VAX/VMS RB730:RBO2/RBBO DISK DRIVER 15-SEP-1986 23:49:22 VAX/VMS 
FUNCTION COMPLETION arSE TIRES GSiF8i2E PBVES Basse vO Oe ey POOP ZI, 


oaths" 


a 
or 
= ° ez 
z a =e 
ua w [vv] 
ne- « cw) 
we adc ws nw 
< w >a a> 
ans verve “—w Oo 4 
= ne cu w bes 
Yuv ~ 2 ox 6 ho 
-~s 2 a [- 4 aumM 
a aw G@w . w waz 
<eou aH re -—<= or 
—w = ” “ew aN 
Mu w +> —}—Frrt ] w 
ew wv 8 Zzaw “> 
-—S-—- Ow J w<3e “OG 
oe “Woe =a = 3° - ew 
ws ww ww w <r 
ww Ww “wD wrnw ——- 
_ —=<& wae w Ye w wn ow 
a we Wow wre — Ie s32 
w Zyvwwow. w #735 oao2aq 
te >>r>ax wv @ Zw 
a az <« = en zou 
o oct_ un w mUuMw ww 
2 <a. we uw DD wu 
— +o > wn s< wo>e 
*.Oo GQ2wrt ww wwow ” ww 
aw od ——wo - > eran <aQa—- 
or —w IN OE > an > he w<tca 
~w xn Oa Qa -. rp 1 
— wee euwoe a ss “af was 
wo Yunr~= EQ we _ we EVvaew 
_— | Rete cererte tus ee rterererte ee *e ree 
w uw >= 
aw — “ ar 
to a s 
— vw 2 a 
” z w@ ~ 
z ww @ a 
> u vv ‘a Pa ” 
_ “oe *. = tw Oo ~ 
_ om wis ™ _— -t ™N 
uw < +a « ca es. § © 
J a mw . oo mo “~~ 
ort wow - <a Qannanm 
no oz hw aw aww a 
[ eden } oe = wo w~-ecaw~ 
vu vs ~ onrwrew 
z <- a 20 eaeaacz 
z [. 4 —— ££ «sz SPevvurw 
ww oc =O _ Ls oJ os oJ o} 
- le oe a - 22 wm £666 
- we we JS oes es WBIBIS 
Vv za ow ~~ <a B2AM 
ra -a §—O@a Ofw @OoOooa 
= o¢ VOU WWE BVVVEe -oO 
ve z ecvuaenrnaw~ Fs 2>5>25>>- ca 
w iw 
za wev z 
— z3u. oO = 3 
-_ a > < | A) = 
— we =z @oeuw woe 2 3 oe ee) 
@ an vV@ear>O «vO “w@® s ~azaoe 
[77 wi eet 4 FY Vilage @rD wiOw 
° zw a vrO@ko z2we om evac 
aew 
oe > 
me —@mw 
er > 
Vv wwe o- 
z zia A 2 
--a oO Oo 
cererere eerererere - wo 


OPR..DWHAO KOM TNO. DOOK— CUIM FTN OR. DOOK— UM ITN 
OOP AAAPAPRAR @a000e000a000000000 Sooe 
HFPPOEOOOOOPSASOSOAOO SOOO AAS Oom 


NO WO STP-_P._ PPR. OW NOOR vw 


ooo OOoooooccooo 
a0d-<ow ou ™ vo 
ar-Om- Ow wet <« ee 

co 
Ou aoOouw wnmnwnn -O 
MWVU0C-<eO oqduve mn 
> 
ox woorw 
mo ~ooMm 
om 
re} a SS 
~~" 
Sf s 


N13 

DODRIVER = VAX/VMS, R8730;RBO2/RBBO DISK DRIVER —15=SEP=1984 AX/ 9 04-00 p | 
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* LSBTTL HARDWARE FUNCTION DISPATCH | 

: FEXL = RB730 HARDWARE FUNCTION EXECUTION 


THIS ROUTINE IS tt yin A BSB WITH A BYTE IMMEDIATELY FOLLOWING 
rh pad $s ne ire beios a ERROR ROUTINE. ALL DATA IS ASSUMED TO HAVE BEEN 
ET UP IN THE UCB BEFORE THE CALL. THE APPROPRIATE PARAMETERS ARE LOADED 
INTO DEVICE REGISTERS AND HE FUNCTION IS INITIATED. THE RETURN ADDRESS 
1S STORED IN THE UCB AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE 
INTERRUPT OCCURS, CONTROL IS RETURNED TO THE CALLER. 
INPUTS: 
e = FUNCTION TABLE DISPATCH INDEX 
R5 = DEVICE UNIT UCB ADDRESS 
ay cee} s RETURN ADDRESS OF CALLER 
4(SP) = RETURN ADDRESS OF CALLER'S CALLER 
IMMEDIATELY FOLLOWING INLINE AT THE CALL ate IS A BYTE WHICH CONTAINS 
A BRANCH DESTINATION TO AN ERROR RETRY ROUTINE. 
OUTPUTS: 


THERE ARE FOUR EXITS FROM THIS ROUTINE: 
1. SPECIAL CONDITION = THIS EXIT IS TAKE 
OR THE OPERATION TIMES OUT. IT J 
ERROR ROUTINE. NO DEVICE REGIST 
2. FATAL_ERROR = THIS EXIT 4 
ERROR OCCURS OR IF C 
ads Aho OR EXHAU 
ROUTINE. ALL DEVI 
3. =a alone - THI 


NOR at AUSTED. | 
SPECIFIED AT THE C 


Ss 
I 
4. Neer athe The aeinat THIS ex 
ONLY THE CSR IS SAVED. 
IN ALL CASES IF AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 


F A POWER FAILURE OCCURS 
UMP TO THE APPROPRIATE 
RE SAVED. 


L_ CONTROLLER OR DRIVE 
AND ERROR RETRY IS yt 


> Po 


AT 
$ 


TRIABLE CONTROLLER 
S ie INHIBITED 
E ERROR BRANCH EXIT 
REGISTERS ARE SAVED. 
NO ERRORS OCCUR 
RETURN INLINE. 
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03 
50. 003 


52 F C83 CF43 
52. 02 «208 )= 54 AS 


10 A450 
64 52 
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SBTTL 


IMMEDIATE FUNCTION EXECUTION 


FUNCTIONS INCLUDE: 


NO OPERATION, 
DRIVE CLEAR, AND 
PACK ACKNOWLEDGE 


INPUTS: 


R3 - CASE INDEX 
R4 - CSR ADDRESS 
RS - UCB ADDRESS 


FUNCTIONAL DESRIPTION: 


INTERRUPTS ARE LOCKED iy THE APPROPRIATE FUNCTION IS INITIATED WITH 
INTERRUPT ENABLE, AND A 


WAITFOR INTERRUPT AND KEEP CHANNEL IS EXECUTED. 


THE RESET COMMAND DOES NOT AFFECT AN R8O SO A RECALIBRATE, WHICH CLEARS 
ERRORS, 1S PERFORMED INSTEAD 


DRCLR :GET STATUS AND RESET 
BDRVTYP RBO2,10$ sBRANCH IF RBO2 
MOVZBL H DF REGAL ‘SET FUNCTION AS RECALIBRATE 
utB$e_ Lhe as) ;SAVE CASE IN 
Boe RecA ALB :AND BRANCH TO EXECUTION 
10$:  MOVL «= #RB_MP_M_STS- :GET STATUS AND 
'RB-MP-M-RST= :.. RESET DRIVE 
iRB-MP-M-MRK,- i++ INDICATE GET STATUS COMMAND PRESENT 
BRB EX_IMED ‘execUTE THE FUNCTION 
ms 
IMMED : :GET STATUS 
MOVL © #RB_MP_M_STS~ :GET STATUS AND 
iRB- “MP-M“MRK,- i+ «INDICATE GET STATUS COMMAND PRESENT 
EX_IMED: SEXECUTE IMMEDIATE FUNCTION 
MOVL = FTABCR3) sFETCH FUNCTION CODE AND MODIFIERS 
INSV UCBSW_ oaiters), #8,42,R2 :MERGE UNIT NUMBER 
SAVIPL SSAVE CURRENT IPL ON STACK 
CKPWR 108 SRAISE IPL AND CHECK FOR POWERF AIL 
MOVL RO, RB_MP(R4) [PREPARE FOR GETSTATUS OR RESET 
OVL  R2.RB7CS(R4) SINITIATE FUNCTION 
WEIKPCH RETREG, #10 SWAITFOR INTERRUPT 
F SCREATE FORK PROCESS 
10$: BRW RETREG ; 
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~SBTTL RECALIBRATE FUNCTION EXECUTION 


; RECALIBRATE FUNCTION EXECUTION 


FUNCTIONS INCLUDE: 


RECALIBRATE 
; INPUTS: 
; R3 - CASE INDEX 
RG - DEVICE CSR ADDRESS 
R5 = UCB ADDRESS 


; FUNCTIONAL DESRIPTION: 
; FOR AN ert 
; POSITION T 

; SIGNALED BY REQUESTING A SEEK TO -1 
; FOR AN RBO2 


; Sein une INTERNAL RECORD OF THE CURRENT DISK POSITION. 


A RECALIBRATE IS PERFORMED. THE HEADS SEEK TO A KNOWN 
O RESET THE DRIVES 4 POSITIONING LOGIC. THIS IS 


A_READ HEADER IS PERFORMED. THE RBO2 DOES NOT SUPPORT 
OWE THE SUPPORT MICROCODE A ree Rede 
PERFORMED, IT UPDATES THAT POSITION WITH THE VALUE 


; FOUND IN THE HEADER. 


Page 


RECALB: ;RECALIBRATE FUNCTION 
ooF2 cS) «01s CE MNEGL UCBSL_DQ_CURDA(RS) DISABLE SEEK OPTIMIZATION 
BORVTYP Rebs 0 [BRANCH IF RBO2 
GETUNIT [GET UNIT NUMBER IN R2 
DSBINT ucase 3 PL(RS) SSAVE IPL AND LOCK OUT DEVICE INTERUPTS 
64 52 C33 CF43 C9 BISL3 FTABLRSJ.R2,RB.CS(R4)  :LOAD CSR (EXECUTION SUPPRESED) 
64 01—Coié3 BITL  #RB_CS_M.DROY,RB_CS(R4) :1S DRIVE READY? 
04 12 BNEO 0$ :BRANCH IF SO 
1C AG or CE MNEGL #1,RB_CMD(R4) :INITIALIZE ENTIRE SUBSYSTEM 
OC AS) «OO1tsé«CCEE 10$: MNEGL #1.RB~DA(R4) OAD <1 IN DISK ADDRESS REGISTER 
11 BRB SEEKI S INITIATE SEEK 
53 OF 9A 04 50$:  MOVZBL ait READHEAD R3 SET FUNCTION AS READ HEADER 
0093 ¢5 90 04 MOVB TB$B_CEX(RS) [SAVE CASE INDEX 
0089 «31 4 BRW TEXECUTE TRANSFER FUNCTION 
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: «SBTTL POSITIONING FUNCTION EXECUTION 
¢ POSITIONING FUNCTION EXECUTION 

FUNCTIONS INCLUDE: 

SEEK CYLINDER 


o<x 


/ 7 
| F 
421 1167 
421 11 : ; 
421 118 ; 
421 1170: 
421 1171; 
421 1172: 
25) 490 
401 1175 ; INPUTS: 
421 1126 ; R3 - CASE INDEX 
421 1177 : RG - DEVICE CSR ADDRESS 
4 1178 ; RS = UCB ADDRESS 
‘ i 9 : FUNCTIONAL DESRIPTION: 
421 11 ¢ i ; THE CYLINDER ADDRESS IS LOADED INTO THE DISK ADDRESS REGISTER. 
421 1183 ; INTERRUPTS ARE L OCk ED OUT, AND THE SEEK FUNCTION IS INITIATED. 
421 1184 : WITH INTERRUPT ENA BLE. THE UNIT MUST BE SELECTED BEFORE LOADING 
4 1 5 ; THE CYLINDER ADDRESS (SO UCODE KNOWS WHETHER ITS AN RB8O OR RBO2). 
421 11 $ : WHEN THE FIRST INTERRUPT 1S RECEIVED THE CHANNEL IS RELEASED (MUST 
421 1188 ; OCCUR AT FORK LEVEL) AND THE COMPLETION INTERRUPT IS WAITED FOR. 
04 1 1189 : THE SEEK MAY cORPLETE WHILE AT FORK LEVEL SO A FLAG IS USED TO 
421 1190 : SYNCRONIZE THE OPERATION. 
421 1191; 
ast Hg 
04 1 119% POSIT: ZPOSITIONING FUNCTION 
421 1195 GETUNIT :GET UNIT NUMBER IN R2 
429 1196 DSBINT ucese BIPL (RS) ‘SAVE IPL AND LOCK OUT DEVICE INTERUPTS 
64 52  FCO3 CF43 C9 04 9 1197 SL3.FTABLR sR2 RB CS(R4) LOAD CSR (EXECUTION SUPPRESED) 
OC AS) §«600BC CS_—s«éOs0437 «1198 VL - UCBSL_MEDIA(R5S ,RB_DAC crag “LOAD CYLINDER ADDRESS IN DAR 
00BC ¢5) «D0 043D «1199 MOVL UCBSL-MEDIA(R5),- sREMEMBER CURRENT DISK ADDRESS 
OOF2 ¢5 441 90 UCBS$L~DQ_CURDA(RS) t..eFOR SEEK OPTIMIZATION 
444 1 03 SEEKI: :SEEK INITIATE 
444 1 0 CKPUR 25$ [DISABLE INTERRUPTS, CHECK POWER 
451 1204 INITIATE S INITIATE THE FUNCTION 
01 88 0458 1205 BISB #UCBSAD SIP ;SIGNAL SEEK IN PROGRESS 
00c9 C5 45a 1 6 Boo OP eAGg RS) 
rF ' BDRVTYP yeBS° atte ‘BRANCH IF RBO2 
463 1 3 : RBBO'S INITIATE SEEKS VERY QUICKLY (APPROX 30 USECS). CONSEQUENTLY 
463 1210 : W vat FOR THE SEEK TO INITIATE IN A LOOP THEN CLEAR THE INITIATION 
“6 i : INTERRUPT AND WAIT FOR THE COMPLETION UNTE ERRUPT 
463 1213 ° 
663 1214 TIMEWALT a3 #RB_CS_M_CRDY,- :WAIT FOR CONTROLLER READY 
463 1215 asy rz), tee. 3810 MICS 
0C 50 «69 048A 1 1 BLBC $ SBRANCH IF CONTROLLER STILL NOT READY 
64 O00F0000 BF CA 048D 121 BICL n0zt CS_M_ATN,RB_CS(R4) CLEAR INTERRUPT REQUEST FROM INITIATE 
494 1 18 ENBINT ‘DROP IPL AND CLEANUP STACK 
16 #11 497 19 208 : 
499 1221 : RBO2°S CAN TAKE UPTO A FULL SECTOR TIME TO INITIATE AN INTERRUPT. 
499 ; + CONSEQUENTLY WE TAKE TWO INTERUPTS, ONE FOR SEEK INITIATE, THE OTHER 


FOR SEEK COMPLETION 


ct 
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499 1224; 
499 1 ¢ 10$: WFIKPCH RETREG, #10 ;WAIT FOR INITIATION INTERRUPT 
OF £0 O4A3 1 6 BBS ane C$‘ V_CE ;BRANCH IF SEEK INITIATE FAILED 
28 o0cc C5 4as5 1 CBSL_BO7CS{RS) ,408 
4A9 1 : 10F ORK IDROP TO FORK IPL 
4AF 1209 208 RELCHAN ‘RELEASE THE CHANNEL 
4B5 1230 DSBINT UCBS$B_DIPL(RS) SRETURN TO DEVICE IPL 
09 E4 O04B8C 1231 BBSC #UCB$9_DQ SIP,- [BRANCH IF SEEK NOT COMPLETED YET 
05 00C9 ¢ 4BE 1 ; UCB$B_BQ_FLAGS(RS),30$ :... 
4Co 1 ENBINT TRESTORE IPL 
10 11 04€5 1234 358: BRB 50$ [DON'T WAIT FOR A SECOND INTERRUPT 
4C 1235 $: WFIKPCH RETREG, #10 sWAIT FOR COMPLETION (CHANNEL RELEASED) 
401 1 § 40$: IOFOR ;DROP TO FORK IPL 
010631 407 : 50$ BRW RETREG [SEEK COMPLETION 


EE ee 
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4DA 1246 .SBTTL TRANSFER FUNCTION EXECUTION 
tba 45¢ 
4DA 43 + TRANSFER FUNCTION EXECUTION 
4DA 49 : FUNCTIONS INCLUDE: 
a US esa 
4DA 1 rk : READ DATA, AND 
ADA 50: READ HEADER 
4DA 1 : : INPUTS: 
4DA 1253 ; R3 - CASE INDEX 
4DA 1 34 : RG = DEVICE CSR ADDRESS 
4DA 35 ; RS - UCB ADDRESS 
ie 3? : FUNCTIONAL DESCRIPTION: 
4DA 1 35 : THE TRANSFER pPARAMETERS ARE LOADED INTO THE DEVICE REGISTER INTERRUPTS 
4DA 1260 ; ARE LOCKED THE FUNCTION IS INITIATED, AND A WAITFOR | NTERR RUPT AND 
O4DA 61 + KEEP CHANEL Ulg EXECUT tb ‘ 
O4DA 1 8g : UPON RETURN FROM THE INTERRUPT SERVICE ROUTINE, IF THE TRANSFER IS 
O4DA 1264 : C TE, THE APPROPRIATE EXIT AKEN. IF THE FUNCTION IS NOT COMPLETE 
4DA 1265 ; TRANSFER PARAMETERS ARE UPDATED AND A RETURN TO FDISPATCH IS EXECUTED TO 
4DA 1 66 ; REISSUE SEEK AND TRANSFER FUNCTIONS WHILE KEEPING CHANNEL AND UBA 
04DA 1267 : RESOURCES. IF A DATA CHECK HAS BEEN REQUESTED, IT IS PERFORMED 
O4DA 1268 : BEFORE RETURNING TO FDISPATCH. 
tPA 1855 ? 
SBA 4 XFER: ; TRANSFER FUNCTION EXECUTION 
4DA 7 : LOAD UBA MAPS 
00cO cS” BO BabA 1575 ° MOVW UCB$W_BCR(RS),- :GET BYTES LEFT TO TRANSFER AND - 
7E AS 4DE 1 i: UCBSW"BCNT (RSS ; ASSUME ONLY ONE TRANSFER NEEDED 
53 OF 91 0460 127 CMPB 0s @CDF_READHEAD,R3 [1S THIS A READ HEADER OPERATION 
13 aE 28 BEQL § NOMAPS [BRANCH IF SO, DON'T NEED MAPS 
tee 158 
i qi * COMPUTE SIZE OF THIS TRANSFER -- MAXIMUM = 1 TRACK 
52. 44 AS) «OA (O4ES 1584 * MOVZBL UCBSB_ SECTORS(RS),.R2 GET SECTORS/ SURFACE 
52. 00BC (5) = B82 CKED 1285 SUBB $W~DA(RS) ,R2 [CALCULATE SECTORS LEFT ON SURFACE 
52 «(0100 BF AG «COOKEE 1 6 MULW g. ; ‘COMPUTE BYTES REMAINING ON SURFACE 
ars 1 BDRVTYP R 02°10 [BRANCH IF AN RBO2 
52 AG 06F9 1 ; MULW [RB80 HAS 512 BYTE SECTORS 
E1 O4FC 1 BBC #10$V_SKPSEC ‘BRANCH NO SKIP SECTOR INHIBIT 
52°° ° 8896 (3 4FE 1290 UCBS$W"FUNC(RS), MOS Rien 
00 &F Ao 05 5 1291 ADDW of "ab TALLOW ACCESS TO 32ND SECTO 
— AS 81 507 1 9 10$:  CMPW : BU _BCNT(RS) .R2 SARE ADDITIONAL TRANSFERS REQUIRED? 
04 3 109 BLEQU [BRANCH IF NOT 
76 a5 «652)—«CO@wB D 129% MOVW R2,UCB$W_BCNT(RS) 'STORE PARTIAL TRANSFER BYTE COUNT 
3 95 20$:  LOADUBAA [LOAD UNIBUS MAP REGISTERS 
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MAPS LOADED (IF NECESSARY) AND BYTE COUNT DETERMINED. 
; LOAD BYTE COUNT 


NOMAPS : 


DSBINT UCB$B_DIPL(RS) ZSAVE IPL AND Lock OUT DEVICE INTERUPTS 
53 7E AS 3¢ MOVZWL UCBSW-BCNT(R5S).R2 :FETCH BYT 
08 a6 OS2~—=Cé«CXC MNEGL R2,RB-BC(R4) :SET NEGATIVE BYTE COUNT 
; COMPUTE AND LOAD 18 BIT UNIBUS ADDRESS 
50 7C AS 3¢ MOVZWL UCBS$W_BOFF (RS) RO sFETCH BYTE OFFSET 
51 ¢ A500 MOVL UCBSL“CRB(R5) ,R1 “GET CRB ADDRESS 
4 FO INSY CRBSL_INTD+VECSW_MAPREG(R1),- ; INSERT STARTING MAP REGISTER 
50 09 09 99,8 +... NUMBER IN HIGH NINE BITS 
06 a6 50 00 MOVL RO, RB “BACR4) [SET BUFFER ADDRESS 


PERFORM M RBQ TRACK-TO-TRACK SPIRALLING 


WWII NAINA NII IG OPPOPOPUNNPINN Ss oes ™®D 


BD HKLM MO ON & O00 09090900 C0 000009 FS SM WAPOA OAA OM NNN 


FH ee aah ah dh eh hb eh ah eb abd a ah Ab Ab ab bh ab hh bbb ech dh dh db dah dh dh dh dah dah dh ch dah dh A Alben 
BPO OOD NAUNE WI 8 ONO UNE WIN OC OD NAW EWN O OD NAME WIN O OONOUS WH" O0ON —-O 
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a a a a a a a a ad a a = — — = os 2 2d 2 a a od do tt tt 


PIAA ANNANDALE NIAAA ANIA NAINA AAAI IAIN AIA AAI AAAI AAI A AAI 


; CAN CHANGE HEADS JUST BY LOADING A SEEK COMMAND, 
; He LOADING THE DAR. WE TAKE ADVANTAGE OF THIS FEATURE 
: TO REDUCE SEEK TIMES 
GETUNIT :GET UNIT NUMBER IN R2 
00BD (5S) 91s«054 CMPB  —«UCBSL_MEDIA+1(R5),- ; COMPARE DESIRED TRACK 
OOF3 C5 4 UCBSL— _DQ_CURDA+1(R RS) TO CU “a i Mer 
18 413 054 BEQL ti ‘BRANCH IF ON TRACK 
53 of 91 054 CMPB ss @CDF_LREADHEAD ,R3 ‘1S THIS A oe AD HEADER OPERATION? 
13° 13054 BEQL 20% :BRANCH IF SO, DON'T CHANGE HEADS 
64 52 FAEE CR C9 4 BISL3 F TABS <CDE SEEK*4>,R2,- :SET CONTROLLER TO SEEK MODE 
OC AS «6000BC C5-)—ssis«éOS5 MOVL UCBSL -REDIA(RS) RB_ DA(R4S 00 A HEAD SELECT 
908) CS 90 055 MOVB UCBSL-MEDIA+1(R5) s UPDATE CURRENT DISK ADDRESS 
OoF3 ¢5 3 ra ties “D0_ LORDASA CRS) t..WITH NEW TRACK 
61 
61 : EXECUTE THE TRANSFER FUNCTION - 
61 : NOTE: THE FUNCTION MUST BE SPECIFIED BEFORE LOADING T He AAR 
61 ; BECAUSE THE UCODE MUST KNOW WHETHER THE TRANSFER IS T 
61 : RBO2 OR AN RBS&O. 
61 ; 
09 €1 0561 20$: BBC #10$V ~SKPSECINH - ;BRANCH NO SKIP SECTOR INHIBIT 
97 09A ¢3 $3 UCBSW~FUNC (RS), $0$ 
0 0 8 cB 056 BISL an SEI- S INHIBIT SKIP SECTOR ERRORS 
6E ' Bet “" =ASSI R2 +..eAND AUTOMATIC SKIP SE CTORING 
64 52 FACS CF43 C9 6 30$: BISL3 eTa8 R3J-R2,RB_CS(R4) LOAD UNIT NUMBER AND FUN NCTION 
CKPUR BRW_RETREG “DISABLE INTERRUPTS, CHECK POWER 
Oc aS 6 00BC CS-~—s«éO é movi UCBSL_MEDIACRS) ,RB_DA(R4S;SET DESIRED DISK ADDRESS 
INITIAT sINITIATE THE FUNCTION 
F WFEIKPCH RETREG,#10 SWAITFOR INTERRUPT AND KEEP CHANNEL 
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1 8 
$3 1 ¢ iy ZTHE RBO PRODUCES SPURIOUS ATTENTION eit S ON XFER’S. UNTIL FIXED WE 
$ [FOLLOW EACH TRANSFER WITH AN EXPLICIT CLEAR oF THE UNIT! § ATTENTION BIT. 
OF 19 78 38 1 : ASHE S_V_ATN.# “xOF RI sFORM BIT MASK 
50 SGA 3 90 135 MOVZWL ocesu ONT! <R5) FETCH UNIT NUMBER 
50 10 ¢ Al 1360 ADDL ane, s SV eAT a6" [POINT INTO MASK 
00 $1 2 E AG 1361 BBCC 508 [CLEAR THIS UNIT'S ATTENTION BIT 
64 CA 0548 1 ¢ 50$:  BICL Rt ta’ *CS(R4) [CLEAR THIS UNIT'S BIT IN THE CSR 
136 1OF ORK SCREATE FORK PROCESS (RETURN TO ISR) 
OF €1 0581 1 64 C ;BRANCH IF NO ERRORS 
03 00cC C5 B3 1365 ocBSL 50> CE Rs) -RETHDR 
B7 1 66 BRW -RETREG: WORD oi Séiacement UNCONDITIONAL BRANCH 
00F6 31 587 67 RETREG RETURN REGISTE TERS 


zs 


J1 
= VAX/VMS RB730:RB02/R 880 DISK DRIVE “SEP-19 3:49:2 AX/VMS Macro v04-00 Page 31 
TRANSFER POST PROCESS] 1373 ee=1 982 0:12: :¢ LORIVER. SR SRE SDODRIVER.MAR: 1 . (1) | 
i ! y -SBTTL TRANSFER POST PROCESSING 
BA 1372; 
BA 1375 ; PURGE DATAPATH <= NOTE: THE DATAPATH IS nor 1 PURGED BECAUSE THIS 
SBA 1374 ; DRIVER IS SPECIFIC TO THE VAX730 PROCESS WHICH DOES NOT REQUIRE 
284 1375 ; DATAPATH PURGING. CONSEQUENTLY THE atti REGISTER WILL ALWAYS 
8 } 6 ; BE ZERO IN ERRLOG AND DIAGNOSTIC BUFFERS. 
SBA 1 28 
SBA 137 
5BA 1380 ; 
BA 1381 ; RETURN HEADER INFORMATION FOR READ HEADER FUNCTION -- 
28A ; 3 IF AN INTERNAL READY HEADER THEN SIMPLY EXIT. 
5BA 1384 
BA 1385 RETHDR: ;RETURN menae INFO 
0093 cS) ((OE:CtiCé@SM?1 BA 1 § CMPB #CDF_READHEAD, - WAS THIS A READ HEADER? 
Ser 1 UCBSé CEX(RS) 
20 12 OSBF 1388 BNEQ WRITECHK BRANCH IF Ni 
0092 ¢5 —€ 91 O5¢1 1389 CMPB #10$ READHEAD, > : INTERNAL READ HEADER? 
5¢6 1390 UCBSé FEX (RS) ee 
eF 12 2t6 1391 BNEQ Sku RETR REG BRANCH IF SO 
78 AS OD O5C8 1 3 PUSHL ocesc. SVAPTE(RS) [SAVE ADDRESS OF PTE 
51 OOEC C5 43 5CB 139 MOVAB UCBSy. DQ_HDR1(R5),R1 SET ADDRESS OF ld geo BUFFER 
¢ 96 D 5D0 1394 MOVL oR [SET NUMBER OF BY rest 0 MOVE 
7E A B1 0503 1395 CMPW 4 -UCBSW_BCNT (RS) [ROOM FOR FULL HEADER? 
06 1B 0507 1 96 BLEQU ‘BRANCH IF SO 
52 7—E aS 3C 0509 139 MOVZWL UCBSW_BCNT(RS) ,R2 sSET LENGTH OF PARTIAL HEADER 
00c0 cS) = =—52.)—s—s A2?:S«sCOSDD = 1398 308: SUBW2  R2,UCBS$W_BCR(RS) [UPDATE BYTE COUNT REMAINING 
00000000'GF 16 O3Ee 1399 JSB G* LOCSMOVTOUSER ‘MOVE HEADER TO USER BUFFER 
78 AS BEDO OSEB8 1400 POPL UCBSL_SVAPTE(RS) RESTORE ADDRESS OF PTE 
co «1 O3eC 149) BRB BRW_RETREG 7 TERMINATE PUNE TION 


— 


aes } 
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ives DATA CHECK AND PARAMETER UPDATE ¢= nie 138¢ 83:13 43 DRIVER. SRE SDODRIVER.MAR: 1 ” if 
14 ‘ ~SBTTL DATA CHECK AND PARAMETER UPDATE 
14 
i 14 $i PERFORM WRITE CHECK, IF REQUESTED 
EE 14 ‘ 
EE 14 WRITECHK: 2WRITECHECK AFTER PARTIAL TRANSFER 
OF €1 OSEE 141 BBC #l0$v -DATACHECK z1F CLR = DATA CHECK NOT REQUESTED 
11 009A 3 1616 UCBSW- FUNC (R } UPDATE 
1 €6 O5F4 141 BBSC #uCB$0_Da DIP [CLEAR DATA CHECK IN PROGRESS 
00c9 ¢5 A: 1614 UCBSB Ba *FLAGS<RS) , -  4+.AND BRANCH IF SET 
AB FR 1416 BISB #UCBSM_D :Sét DATA CHECK IN PROGRESS 
co C SFC 141 UCB$B Bo. FrAG§ (RS) 
OA 9A OSFF 1418 MOVZBL yI0$ QRITECHECK,R3 :SET CASE INDEX TO WRITE CHECK 
FFI2 1 608 + BRW NOMAPS s;BRANCH TO PERFORM WRITE CHECK 
$35 1253 
605 14 § iu UPDATE BUFFER ADDRESS, CURRENT DISK ADDRESS, AND BYTES REMAINING 
05 1426 ; FOR NEXT TRANSFER 
3 tse | 
605 14 $ UPDATE: “UPDATE TRANSFER PARAMETERS 
7E AS) =3C «(0605 «1428 MOVZWL UCBSW_BCNT(RS),RO sFETCH BYTES TRANSFERRED 
0060 cS) =—50) 0 A2-s«(0609 «1429 SUBW RO, UCB$W_BCR(RS5) [UPDATE BYTES REMAINING TO XFER 
A7 1 Bone 1 9 BEQL BRW_ RETREG sBRANCH IF TRANSFER COMPLETE 
10 14 
61 Re COMPUTE NUMBER OF 512 BYTE BLOCKS TRANSFERED 
50 50 9 8F 78 0610 1435 108:  ASHL a7 :COMPUTE PAGES * 
78 AS 9 0 0615 14 6 ADDL RO east atta? UPDATE THE ABORESs OF THE P 
78 AS 9 619 14 BICB2 APTE(RS) ROUND DOWN T iL PAGES cRLO2" $!) 
50 50 FF 8F 78 061D 1438 ASHL -1 ao: [CONVERT TO 384" ote SECTORS 
622 1439 BORVTYP it 15$ [BRANCH IF RB 
oF 50 £9 0628 1440 BLBC : CHECK FOR DD SECTOR ADDRESSING 
DA 0628 1441 INCB UCB$W_BOFF+1(RS) SADD *x100 T 
7D AS” FE af BA 06 1448 BICB «=. #*XFETUCB$W_BOFF+1(R5) RAKE BOF F nODULO. “x200 
5 11 1443 BRB 20$ [CONTINUE IN COMMON 
50 50 FF ef 78 1445 15$: ASHL #-1,R0,RO :CONVERT TO 512 BYTE SECTORS 
00BC C5 8 A 1446 20$: AdDDB RO, UCB$w_DA(RS) [UPDATE SECT 
00sec (591 F 144 CMPB ss UCBS$W_DATRS) ,- [COMPARE UPDATED SECTOR 
44 A 4 1448 CBSB_SECTORS(RS) :...T0 SECTORS PER TRACK 
38 1F 144 BLSSU [BRANCH IF MORE REMAIN 
. 2 1450 NEQ [BRANCH IF PAST LOGICAL END OF TRACK 
9 1451 BDRVTYP R 802.308 [BRANCH IF RBOZ 
09 €1 064F 1458 C #10$V_SKPSECINH [BRANCH NO SKIP SECTOR INHIBIT 
02 009A C5 51 1453 UCBSW~FUNC(RS), $0$ oa 
2 1455 :THIS IS AN RBO DRIVE, ON THE LAST LOGICAL SECTOR, AND SKIP SECTOR 
3 1456 TINHIBIT IS SET -- THERE IS ONE PHYSICALLY ACCESSABLE BLOCK REMAINING, SO 
14 [CONTINUE ON THE SANE TRACK 
18 «11 1485 : BRB 50$ ZONE MORE SECTOR REMAINS 
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c¢ 7 Pe 308: CLRB UCBSW_DAC(RS) CLEAR SECTOR ADDRESS 
d¢ 8 148 INCB at tte ae bE z INCREMENT TRACK 
4 C CMPB UCBSW_DA+1(R5) .= sCOMPARE UPDATED TRACK 
45 A 464 $B-TRACKS(R5) 322-10 eas vPee CYLINDER 
0 1F ie 5 BLSSU ;BRANCH fre MAIN 
pose C 9% 1298 CLRB UCBSW_DA+1(R5) sRESET D SIRED. TRACK (SURFACE) TO 0 
OBE C 86 oe 128 INCW UCesu- ~DC(RS) : INCREMENT CYLINDER 
Fe18 = 51 1465 50S: BRw FOISPATCH MORE BYTES REMAINING = CONTINUE 
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ira ht SPECIAL CONDITION ( OUER. PiReouTS <3 at} 83:73:46 YORIVER. SREIDODRIVER.MAR: 1 - th 
1478 ~SBTTL SPECIAL CONDITION (POWER, TIMEOUT) 
1474 ; 
i 3 SPECIAL CONDITION EXIT (POWER FAILURE OR DEVICE TIMEOUT) 
1477 ° 
1478 SPECOND: 
0or2 cS 01 ce 147 MNEGL #1 ucast DQ_CURDA(RS)  ;DISABLE SEEK OPTIMIZATION 
£ 1480 BBSC #uCB$v_POWER,- TIF SET = POWER FAILURE 
26 64 A 1481 UCBSW_STS(R5S ,PWRFAIL :...ELSE TIMEOUT 
14 ; SETIPL UCBSB7FIPL(RSS : TIMEOUTS ENTER AT DEVICE IPL 
00000000" GE 16 14 JSB8 G*ERLSDEVICTMO [LOG DEVICE TIMEOUT 
3 AS B4 1484 CLRW UCB$W_BCNT(RS) Set ZERO BYTES TRANSFERED 
64 AS oF AA 1485 Icw suCBsA TIMOUT,UCBSW_STS(R5) ;CLEAR TIMEOUT STATUS 
50 3¢ F 36 14 6 MOVZWL #SS$_TIMEOUT,R :SET BEVICE TIMEOUT STATUS 
0 cS 14 ECB CBSB_ERTCNT(R ) TANY ERROR RETRIES REMAINING? 
63 15 14 : BLEQ [BRANCH IF NOT 
FC1B 3! 14 BRW RESETDRIVE SRETRY THE FUNCTION 
F(81 31 1490 108 BRW FUNCT [GIVE UP 
149¢ PWRFAIL: “POWER FAILURE 
64 AS 20 AA 149 BICw  #UCBSM_POWER ucasu_STS(R5) SCLEAR POWER FAILURE BIT 
53 SBA b0 149% MOVL UCBSL_TRP(RSS,R 3GET ADDRESS OF 1/0 PACKET 
$f A D 1495 MOVa IRPSL~SVAPTE(R3) ,- sRESTORE TRANSFER PARAMETERS 
BA 1496 UCBS$L ~SVAPTE(R5) Rooms 
FA6B 31 1497 BRW PREPROCESS SRETURN TO PREPROCESS UCB FIELDS 


cur e 


WARDUARE FUN 


AS 0060 8F 
BA 
51 gpce oF 
oot 6004 C3 
7E ry: 

52 00D¢c C 


51 00807801 8F 


0D 

00 64 AS 

50 =O1A4 ef 

FCSA 
00000000 * GF 

5 3} 99 
4f 511 

2F 51 ~=«OOE 
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PPV LV DULPULVSVPVPUSUSUSULVSUSVSUSU SUSIE SUSU SUSU SU SUSIE AST SUSU SISA SOASI SUAS ASUASIASIASU USIP SISOS 
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v04-0 


0 Pa 
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«SBTTL HARDWARE FUNCTION EXIT PROCESSING 


‘ ? DETERMINE EXIT = SPECIAL CONDITION, FATAL ERROR, RETRIABLE ERROR, OR SUCCESS 


RET 


REG: BITW 


CHECK TO SEE IF TH 
ERRORS, AND THE DR 


BITL 


#UCBSM_POWER! = 
U I 


FUNCRT 
bea 


ANY ERROR OTHER THAN OPI. 
NOT READY, THEN ASSUME IT WAS SIMPLY SPUN DOWN 
E 


POWER FAIL 

zeeeOR DEVICE TIMEOUT 

z22-IN STATUS WORD? 

sBRANCH IF SO -- SPECIAL CONDITION 
sFETCH CSR 

BRANCH IF NO ERROR 

sDISABLE SEEK OPTIMIZATION 
sADD_NEGATIVE BYTE COUNT REMAINING 
3222.10 PARTIAL TRANSFER COUNT 
sFETCH MPR 


IF NO OTHER 


sSKIP wetter ERROR 
Sees DRIVE ERROR 

Seee ney Panes eee MEMORY 
Sewe OR ets ATE 

bees OR DAT A CH ECK 

gee. OR DRIVE READY? 
;BRANCH IF SO 

CLEAR VALID BIT 


:SEf me MEDIUM OFFLINE STATUS 


ALLOCATE AND FILL ERROR MESSAGE BUFFER 
;BRANCH IF NON-EXISTENT MEMORY 

;BRANCH IF SKIP SECTOR ERR 

BRANCH IF NO DRIVE ERRORS 

sBRANCH IF RBO2 


CLASSIFY RB8O ERRORS AS FATAL OR RETRIABLE 


BBC 
BRB 


#RB_MP_V_PLGV,R2, 108 
RETRY 


BRANCH IF PLUG NOT YALID 


CLASSIFY RBO2 ERRORS AS FATAL OR RETRIABLE 


bos: 


CMPZV 


BBC 
BBCC 


#0,86,R 
ang. nb “ai “HO 


#RB_MP_V_VC,R2,60$ 
#uCBSV"VALIO,- 


sSTATE OK? ...COVER CLOSED 
; ADS OUT 


sBRANCH IF VOLUME VALID 
:CLEAR VALID BIT 


ee ee 
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yO 008 HARDWARE FUNCTION EXIT PROCESSING ease 1 §3:43 88 DRIVER. SREIDODRIVER.MAR:1 (1). 
00 64 AS 71 7 UCBSW_STS(R5S),55$ nas 
20 «O11 HH 55$: BRB FATAL” SRETURN 
4 33 D €1 0717 1560 608: BBC #RB_MP_V_WL,R2,70$ ;BRANCH_IF NOT WRITE LOCKED 
A EO 718 1 BBS WRB-MP-V-WGE,R2,FATAL IF WL & WGE THEN WL ERROR 
52 O000CD00 BF 03 O71F 1562 708: BITL  #RB“MP“M"WDE- [WRITE DATA ERROR 
726 1 'RB-MP-M-HCE~ $...0R HEAD CURRENT ERROR 
726 1564 iRB-MP-M-SPD- +...0R SPINDLE SPEED ERROR 
726 1 65 iRB-MP~M-WGE- $...0R WRITE GATE 
726 1 : i1RB-MP-M-DSE,R2 +...OR DRIVE SELECT RERROR? 
“sw 4 ! és BNEQ FATAL BRANCH IF SO 
7 1368 
728 1570 ; RETRIABLE ERROR EXIT 
bin 
OF €0 0728 1573 RETRY: BBS #10$V_INHRETRY,- ;BRANCH IF RETRIES INHIBITED 
16 009A C5 720A 1574 UCBSW~FUNC(R5) FATAL 
50 9c 05 «698 «(07 5 1575 CVTBL  QUCBSC DPCKRS) (RO iGE7 BRANCH DISPLACEMENT 
50 9C c3 CO 07 137% ADDL UCBSL BPC ERS) RO i COMPUTE JUMP ADDRESS -1 
0 06 0738 157 INCL RO [COMPUTE JUMP ADDRESS 
60 (1 , A 1378 JMP (RO) RETURN 1) ERRO® ROUT INE 
73C 1580 ; 
73C 1581 : SUCCESSFUL OPERATION EXIT 
Fae y8BS 
009¢ ¢5 06 73C 1584 SUCCESS:INCL  UCBSL_DPC(RS) ;ADJUST TO CORRECT RETURN ADDRESS 
009€ 05) «=«617-«0740:=«1585 JMP @UCBSC_DPC(RS) 'RETURN TO DRIVER 
0744 1386 
0744 1587 ; 
744 1588 : FATAL ERROR EXIT 
0744 1589 ; 
0744 1590 
FB7B 31. «0744 «1591 FATAL: BRW FATALERR SFATAL ERROR EXIT 
0747 1592 
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TERRUPT IS NOT EXPECTED 


N_WHEN AN INTERRUPT 
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;BRANCH IF NO MORE DRIVES TO SERVICE 


: OWERED TO FORK LEVEL, THE 


— Oc re aiwn 
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BRANCH IF INTERRUPT EXPECTED 


; INTERRUPT EXIT CODE 
RETURN FROM INTERRUPT 


— TIME OF THE INTERRUPT 
HE TIME OF THE INTERRUPT 
, IPL ISL 
ALL REGISTERS EXCEPT RO-RS ARE PRESERVED. 


ARE SAVED 
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INTERRUPT SERVICE ROUTINE 
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N 
ADDL 
POPR 
REI 
MOVL 
MOVL 
MOVL 
BEQL 
BBSC 
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DQSINT = RB730 INTERRUPT SERVICE ROUTINE 


FUNCTIONAL DESCRIPTION: 
R 
$ 
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;SCAN ATTENTION BITS TO DETERMINE INTERRUPTING DRIVE 
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= VAX/VMS RB730:RBO2/RBB0 DISK DRIVER 1§- SEP=1984 4 23:4 49: :22 AX/VMS Macro v04-00 Page 38 ny 
INTERRUPT SERVICE ROUTINE -SEP=1984 00:12: DRIVER. SRC JDQDRIVER.MAR; 1 (1) S 
50. OOF 7 01 ASHL  #RB_CS_V_ATN,#*XOF,RO  ;PREPARE MASK OF ATTENTION BITS 
00 4 I ig it? 18 BBCC RieRO TES SCLEAR THIS UNIT'S BIT IN THE MASK 
4 CA 0778 1653 15$ BICL  RO.RB.CS(R4) ‘CLEAR THIS UNIT'S BIT IN THE CSR 
ee ¢ 778 16 4 SUBL § #R6_CS_V_ATN,R1 [COMPUTE UNIT NUMBER 
52. 51 Q 77E 1655 ASHL_ #RB-CS-V"DS,R1,R2 ;MOVE UNIT INTO DRIVE SELECT BITS 
C9 0782 16 é BISL3 R2,= SSELECT THE UNIT 
784 16 #RO_CS_M_IE- t...WITH INTERRUPT ENABLE 
784 16 : 'RB-CS"M~CRDY,- +..eAND CONTROLLER READY 
64 900000¢0, BF 784 165 RB gle) i 22 DEVICE CSR | 
341 09 7BA 1660 MOVL 0g L_UCBLST(R3)CR1J,R5 :GET ADDRESS OF UCB | 
10 13 O78F 1661 BEQL [BRANCH IF UCB WAS NOT FOUND 
01 €4 07 } 166¢ BBSC  #UCBS$V_INT,- ‘BRANCH IF INTERRUPT WAS EXPECTED | 
10 64 AS 793 16 UCBSW_STS(RS) 
oocc C5 D0 0796 1664 MOVL  RB_CSTR4 yeast. Do. cS(RSS SAVE CSR 
E4 0798 1665 BBSC ©=_- #u TBS V Da SIP ;BRANCH IF SEEK IN PROGRESS 
cS 00C9 ¢ LoD 1666 UCBSB.BQ_FLAGS(RS),128 .--AND CONTINUE. SCANNING | 
00c8 30 O7A1 1668 " -BSBW =: DQ_UNEXINT ; HANDLE UNE XPECED INTERRUPT | 
0 11 O7A4 166 BRB 128 [CONTINUE SCANNING 
wae eh 
7A6 1678 THERE WHEN UNIT DETERMINED, INTERRUPT EXPECTED, DRIVE SELECTED 
7A 1673 SAND STATUS AVAILABLE 
0093 C5 0 1 ZAG 1675 ios: cmPB HOF READHEAD ,UCB$B_CEX(R5) :READ HEADER FUNCTION? 
OOEC C5) 10 AG ig 7A 1679 CVTLW © RB_MP(R4) ,UCBSW_DQ_ HORI (RS) SSAVE SECTOR HEADER INFORMATION | 
OOEKE (5 «10 AGO? 0783 1678 CVTLW = RBIMP(R4) .UCB$W~DQ-HDR2(R5) i++ (THIS MUST BE VEN | 
00FO (5 «10 AGCé 789 1679 CVTLW © RBIMP(R4) -UCBSW~DO-HDR3(R5) ».FOR INTERNAL READ HEADERS) 
64 00008000 Ly D3 rer 16 1 50$: iT Ht CS_M_CE,RB_CS(R4) ; COMPOSITE ERROR? | 
OY £6 Ores 1088 BBS #UCBSV_DIAGBUF :BRANCH IF DIAGNOSTIC BUFFER | 
OF 68 AS 7CA 1684 UCBSW srvsset RS) ,80$ .1S PRESENT 
00cc CS) 64) «=O sCOO7CD «1685 MOVL  RB_CSTR4), veBsi -bO_CS(R5) :SAVE CSR ONLY | 
Fes 1689 | 
gp iss SRETURN TO FUNCTION EXECUTION | 
53. 10 AS 7D O7D2 1690 60$: mOVQ UCBSL_FR3(R5),R3 SRESTORE DRIVER CONTEXT 
0c BS 16 0706 1691 JSB @UCBSC_FPC(RSS ‘CALL DRIVER AT INTERRUPT RETURN ADDRESS | 
FFR3 7D 1698 BRW 10$ [CHECK FOR MORE DRIVES TO SERVICE 
FRE 169% | 
7D€ 1898 [DEVICE ERROR OR DIAGNOSTIC BUFFER -- SAVE THE DEVICE REGISTERS | 
Zoe 1696 SAND RESET THE 
02 10 070¢ 1698 B0$: BSBB DQ REGSAVE i SAVE DEVICE REGISTERS | 
4% 2 1699 BRB 608 : CONT INUE 
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AX/VMS RB730: R802 /RBBO DISK priver SEP=19 AX/VMS Macro v04-00 Pa 9 
tStERS SA VE ROU 137 SE e= 1383 83:73 eg DRIVER. SRCJ DODRIVER.MAR: 1 = #3) 
760 17 .SBTTL REGISTER SAVE ROUTIN 
Ef i a ER SAVE ROUTINE 
ze 17 5 ; DO_REGSAVE = REGISTER SAVE ROUTINE 
ze 1? § : FUNCTIONAL DESCRIPTION: 
7E0 17 § + THIS ROUTINE 1S CALLED 10, SAVE THE DEVICE REGISTERS AND UBA RESOURCE 
7E 1710 ; REGISTERS IN THE UCB. STATUS IS OBTAINED FROM THE DRIVE AND IF AN 
760 1711 : ERROR HAS OCCURED THEN THE Sarve 1S RESET (COULD BE HERE BECAUSE 
ze ie : DIAGNOSTIC BUFFER PRESENT 
ze ig : INPUTS: 
7E 1716 : RG = ADDRESS OF DEVICE CONTROL STATUS REGISTER (CSR) 
ze 171 RS - ADDRESS OF UNIT CONTROL BLOCK (UCB) 
ze 1718 : OUTPUTS: 
O7E0 1721: RO-R3 = _DESTROYED 
ze 7 g ; THE DEVICE REGISTERS ARE SAVED IN THE UCB. 
pee tee em 
EO 17 é DQ_REGSAVE: :REGISTER SAVE ROUTINE 
7E0 17 MOVAB RB_CS(R4),R2 [GET ADDRESS OF CONTROL STATUS AREGISTER 
7E3 1708 MOVAB UCBS$L_DQ_CS(R5),R3 GET ADDRESS OF REGISTER SAVE A 
768 1729 MOYL (R2)+7(R3)+ SAVE CONTROL STATUS REGISTER 
7EB 1730 MOVL  (R2)+.(R3)+ SAVE BUFFER ADDRESS REGISTER 
7EE 1731 MOVL  (R2)#.(R3)4 [SAVE BYTE COUNT REGISTER 
7F1 «17 : MOVL  (R2)+.(R3)+ TSAVE DISK ADDRESS REGISTER 
7F4 (17 MOVL  (R2)+.(R3)+ [SAVE MPR REGISTER 
7F7 (1734 CVTLW © (R2) +, UCBSW_EC1(R5) TSAVE ECC POSITION REGISTER 
4a: 7 5 CVTLW © (R2) +, UCBSW~EC2(R5) [SAVE ECC PATTERN REGISTER 
801 7 a GET STATUS 
4 1739 ° GETUNIT :GET UNIT NUMBER IN R2 
09 1740 CMPZV #RB_CS_V_FCODE,- [WAS ORIGIANL FUNCTION A GET STATUS? 
0B 1741 RB-CS s7F CODE - Rass 
o¢ 1248 UCBSL_Ba~cs(R5),- a 
F 74 #F_GETSTATUS pes 
10 1744 BEQL 208 BRANCH IF SO (USE ORIGINAL STATUS) 
12 1745 MOVZBL #-1,UCBSL_DQ_MP(RS) :SET TO <1 IF GET STATUS FAILS 
1 1746 BSBW ba gEISTS” :GET THE STATUS 
1B 174 BLBC = RO 208 BRANCH IF GET STATUS FAILED 
1€ 1748 MOVL RB. MP (RG) UCBSL_DQ _MP(RSS: “SAVE MPR (STATUS WORD) 
4 1769 208: BBC s_v_Ce iBRANCH IF NO ERRORS (DON'T CLEAR IF 
6 1750 pres s5y “(StRS), 30$ +..-ONLY HERE FOR DIAGNOSTIC BUFFER) 
A 17 1 BSBW © DG_RESET™ SCLEAR DRIVE ERRORS IF ANY 
BS 
D 1785 : SAVE UBA REGISTERS 
B58 | 
D 1758 308: ASSUME UCBSL_DQ_FMPR EQ UCBSL_DQ_MP+4 ;ASSUME REGISTER AREA CONTIG 


vo 


F 15 
DODRIVER = VAX/VMS RB730:R RB02/ RBBO DISK DRIVER 15-SEP-1984 23:49: AX/VMS Macro Vv04-00 Page 40 
viva ht REGISTER SAVE ROUTINE ans et 7 88:43:48 YORIVER. SRC IDQDRIVER.MAR; 1 we TD 
63 00000000 FFFFFFFF iy 7D p 1759 MOVQ —s #=1, (R3) :SET DEFAULT VALUE - 
A 91 176 capa sé wi TECHECK,- ‘DRIVE RELATED LUE TION? 
0093 c3 A 17% ycBs6 Cex ¥(R5) Baad 
¢ #4 ; 176 BGTRU SBRANCH IF SO 
50 0009 CS =f? 8F 78 F 1764 ASHL = #“9) UCBSL_DO_BA(RS) RO; ZCOMPUTE MAP REGISTER NUMBER 
0 OVEF 8F 81 0846 1765 cMPW 0495, R TLEGAL MAP REGISTER NUMBER? 

1 F 48 1766 BLSSU 708 ‘BRANCH IF NOT | 
51 4 a5 D 4D 1768 MOVL ucest coRBcRs) R1 CRB | 
é 8 Bi DD 21 176 MOVL acnesc INTD¢ vec C$ ai, A rere ADDRESS OF ADAPTOR CSR 
83 800 C24 D é Vf 9 MOVL I$t MAP CRD) ROJ> i$ AVE FINAL MAP REGISTER 
50 8 177 DECL oR | CALCULATE PREVIOUS MAP REGISTER NUMBER | 
4 EC 30 1276 CMPV 3s VEC $V -APREG, - [COMPARE STARTING MAP REGISTER NUMBER 
F fF 177 #VECSS~ 
36 Al 60 1774 CRBSL SINIDevECSU. mAPrEG (Ris; - ;...FROM CRB 
50 62 1775 ‘ *T0 ENDING MAP REGISTER MINUS 1 
06 16 086 1776 BGTR 70% ‘BRANCH IF WE'RE STILL ON FIRST MAP | 
63 0800 C24 00 65 177 MOVL UBISL_MAP(R2)CROJ,(R3) :SAV - apREVIOUS MAP REGISTER 
0 68 1778 70$: SB TRETU 
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DODRIVER = VAX/VMS RB730:RB02/R 880 DISK priver 15-SEP-1984 AX/VMS Macro v04-00 Pp 41 | ) 
vive UNEXEPECTED INTERRUPT HANDLER Ser tE8 F5:53:2 FORIVER secs aNet Oe wan: "80? 4], § 
¢ 17 ~SBTTL UNEXEPECTED INTERRUPT HANDLER u 
€ 1783: | U 
c 7 4: 3 FUNCTIONAL DESCRIPTION: u 
6¢ 5 $: ; UNEXPECTED INTERRUPTS ARE FIELDED. STATUS IS OBTAINED FROM V 
ot 1787 ; THE DRIVE, VOLUME VALID IS CLEARED IF APPROPRIATE AND THE Vv 
¢ 7 § > DRIVE IS RESET | v 
et sper | SOE | y 
6¢ 1796 : R2 - UNIT NUMBER OF DRIVE V 
€ 1793: RG - RB 30, CSR ADDRESS v 
6¢ 1794 : RS - UCB ADDRESS | v 
6¢ 1296 ; OUTPUTS: v 
6¢ 1798 : RO = DESTROYED | W 
6C 1799: UCBSV_VALID IN UCB$W_STS C 
6c 1 By 3 W 
gee 1B) 
86C 1 8 DQ_UNEXINT: : UNEXPECTED INTERRUPT " 
55 DS OBC 1804 TSTL RS 1S THERE AN UCB? | 
0 13 $ 08 BEQL 6-0 ‘BRANCH IF NOT | 
4F 10 ° 70 1 69 BSBB © DQ_GETSTS :GET DRIVE STATUS | 
2350 €9 0872 1 08 BLBC Osa ANCH IF TIMEOUT OR OPI 
64045 10 AB O , 1 09 BISW Sothern _ONL INE ,UCBSW_ stsche) ;SET UCB STATUS VOLUME ONLINE P 
| ~ 
64 04000000 F p 79 1 giTt #RB_CS_M_TYP,RB_CS(R4) 1S THIS AN R80 | j 
10 AS © 00000200 BF oo 3 1 ig BITL  #RB_MP_M_VC,RB_MP(R4) : VOLUME CHECK? $ 
11.1 A 1814 BEQL 30$ :BRANCH IF NOT $ 
OA 11 : ! 13 BRE 208 SET VOLUME INVALID 
10 AS 00000200 BF 03 — 1 9 10S: BITL #RB_MP_M_PLGV,RB_MP(R4) ;PLUG VALID? | 
05 (1 ze 18 BNEQ 308 [BRANCH IF SO | 
08 ES 0898 1820 20$: BBCC #UCBSV_VALID,- sCLEAR VALID BIT 
00 64 A 9A 1 UCB$W_STS(R5) ,30$ wee | 
00DA 30 0890 30$: BSBW DQ_CLASSIFY ZCLASSIFY DRIVE AND INIT UCB 
19 1 1825 50$:  BSBB DQ_RESET ;RESET THE DRIVE | 
0 BA 6 RSB SRETURN TO CALLER 
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= VAX/VMS RB730:RBO2/RB8O DISK DRIVER 15-SEP-1984 23:49:22 VAX/VMS Macro v06-00 p 
GET STATUS, RESET, READ HEADER ~Seer188s G5:10:28 FORIVeR.caeSboseives.man:1 * 20 
9 —SBTTL_ GET STATUS, RESET, READ HEADER 
DO_READHDR = READ HEADER (EITHER DRIVE) 
DO-RESET = GET STATUS AND RESET ROUTINE 


DQ-GETSTS = GET STATUS ROUTINE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE HANDLES NON-INTERRUPT DRIVEN DEVICE OPERATIONS INCLUDING: 
RESET DRIVE 
GET STATUS 
READ HEADER 
AFTER EXECUTING THE FUNCTION A WAIT FOR CONTROLLER READY IS DONE. 
THE WAIT WILL TIMEOUT IF CONTROLLER READY DOES NOT APPEAR WITHIN 
2 SECONDS 
THIS ROUTINE SHOULD ONLY BE CALLED AT DEVICE IPL OR ABOVE 
INPUTS: 


R2 - UNIT NUMBER IN DRIVE SELECT BITS 
R4 = ADDRESS OF DEVICE CONTROL STATUS REGISTER (CSR) 


OUTPUTS: 


RB_MP(R4) - DRIVE STATUS IF DQ_GETSTS OR DQ_RESET 
RO - LOW BIT CLEAR IF A TIMEOUT OR OPERATION INCOMPLETE 


DODONOAOUS UNO 


DDD AED PPA Be BS BS BB EB EIN 


MEW 9 OCONAUS WN" O OOVNOAUS WO 
. 


;TO READ A HEADER, THE COMMAND IS LOADED AND THE WAIT ROUTINE 
21S JUMPED TO. 


a a a a a et a td + 8 a 8 a 2 2 td ts 2) bd 2d dd a bd 2 a ts a a ot 


€$ ;THE RB730 HOST (VAX730) MICROCODE MAINTAINS AN INTERNAL RECORD 
re: OF THE CURRENT DISK CYLINDER FOR RBO2'S. THIS REGISTER IS USED TO 
$ sCOMPUTE THE RELATIVE CYLINDER ADDRESSES REQUIRED BY THE DRIVE. THE 
oy sCONTENTS OF THIS REGISTER MAY DISAGREE WITH THE ACTAUL DISK POSITION. 
72 ;THE REGISTER IS RECALIBRATED BY DOING A READ HEADER. THE MICROCODE 
75 ;RELOADS THE REGISTER WITH THE CURRENT CYLINDER ADDRESS AS SPECIFIED 
RR IN THE HEADER WORD, WHEN THE MACRO CODE READS THE MPR. 
7 @ 
8 DQ_READHOR: DRIVE READ HEADER ENTRY 
1 8 8SBB DQ_WAIT MAKE SURE CONTROLLER FREE 
3 7 BLBS RO; 108 BRANCH IF SO 
0 RSB RETURN WITH RO LBC 
C 1 108 BISL3 R2,- MERGE UNIT NUMBER 
¢ #F READHEAD- 3.2eWlTH FUNCTION 
'RB_CS_M _IE,- :..-AND INTERRUPT ENABLE 
4 RB_CS(R4Y INTO CSR CLEARING CROY 
30 5 BSBW DQ-WAIT sWAIT FOR COMPLETION 
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DODRIVER = VAX/VMS RB730:RB02/RBB0 DISK priver 197 $60= 1388 4 33:48 38 onyhey: Macro V04-00 Page 
vive GET STATUS, RESET, READ HEADER =SEP-1984 DRIVER. SRCJDQDRIVER.MAR; 1 
10 AG 10 AG pt 4 CMPL =—s- RB_MP(R4) ,RB_MP(R4) ;READ HEADER WORDS 
18 1 9 BAB CHECKOPI sCHECK FOR COMPLETION 
'TO RESET THE DRIVE, A GET STATUS SUBCOMMAND IS LOADED INTO THE 
SMULTIPURPOSE REGISTER WITH THE RESET BIT SET. 
DQ_RESET: :DRIVE RESET ENTR 
10 a6 «OB~—s«édO MOVL = #RB_LMP A STS!~ sPUT GET STATUS IN MPR 
RB_AP_A_RST!- i++ + AND | RESET THE DRIVE 
RB-MP-M-MRK,RB_MP(R4) +..-MARK SUBCOMMAND PRESENT 
06 11 BRB EXGETSTS : CONTINUE IN COMMON 


310 GET STATUS WITHOUT RESET, A GET STATUS SUBCOMMAND IS LOADED INTO 
; THE MULTIPURPOSE REGISTER. DRIVE STATUS IS NOT RESET 


cae | 
AS 603—Cés«é Os 

| 

| 

0 
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WDODODOOOODOODODOOOOOOOO0O0000000OOMdcccEcscDcsCDCSCSCDCSCSCesD ~~ 
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F 
P 
F 
1 
1 
1 
1 
! 
1 DQ_GETSTS: GET STATUS ENTRY 
1 MOVL one mP_M PUT GET STATUS IN MPR 
: B_AP_A MARK AB. MP(R4) teeeMARK SUBCOMMAND PRESENT 
; NOW EXECUTE THE ACTUAL COMMAND BY MERGING THE UNIT NUMBER WITH 
: 5 THE GET STATUS COMMAND AND LOADING THE CSR. INTERUPTS ARE NOT ENABLED 
; EXGETSTS: ; COMMAND EXECUTION 
1A 10 O8C5S BS88 DQ_WAIT AKE SURE CONTROLLER FREE 
01 50 33 : 7 BLBS RO; 10$ ORA NCH IF SO 
A RSB [RETURN WITH RO LBC 
52 9 ce) 108 BISL3 R2,- [MERGE UNIT NUMBER 
D af GETSTATUS= 3+ -WITH FUNCTION 
D 3.» AND INTERRUPT ENABLE 
64 00000044 8F AB. ts¢ acy! INTO CSR CLEARING CRDY 
CHECKOPI: 7 CHECK FOR OPERATION INCOMPLETE 
fa 8588 DQ WAIT WAIT FOR R 
64 00000600 BF oD BITL #RB_CS_M_OPI,RB_CS(R4) OP ERATION COMPLETE? 
» -% C BEQL 108 0 
0 06 O08 3 CLRL RO ISET F ALU RE 
05 Q 108: RSB ‘RO LBC IF TIMEOUT 
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=SEP-1984 DRIVER. SRC JDODRIVER.MAR; 1 (1) 


-SBTTL WAIT FOR CONTROLLER READY 
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DODRIVER = VAX 
vo4~O06 walt tLe 


DQ_WAIT = WAIT FOR CONTROLLER READY ROUTINE 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE WAIT FOR CONTROLLER READY <= THE WAIT WILL TIMEOUT 
IF CONTROLLER READY DOES NOT APPEAR WITHIN 2 SECONDS 


THIS ROUTINE SHOULD ONLY BE CALLED AT DEVICE IPL OR ABOVE 


COMMMMMMMMMMMMMMMMMMMmMmMmMmmMmmmmmmnrnchn 2 


INPUTS: 

Re = ADDRESS OF DEVICE CONTROL STATUS REGISTER (CSR) 
OUTPUTS: 

RO = LOW BIT CLEAR IF A TIMEOUT 
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OB 3 

08 ; WAIT FOR CONTROLLER READY. IF NOT PRESENT WITHIN APPROXIMATELY 

88 , 2 SECONDS, THEN RO WILL HAVE LOW BIT CLEAR 

08 9 bo_walt: :WAIT FOR CONTROLLER READY 

08 9 TIMEWAIT #200000,#RB_CS_M_CRDY,- ;WAIT FOR CONTROLLER READY 

08 9 RB_CS(R45,L t.e- 200000*10 MICS 
05 09 36 RSB sRETURN TO CALLER 


53 64 AS 
0810 8F 
64 AS 
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ATION ROUTINE 


RBO2/RBB0 DISK river 19-360" 198¢ $8: $3: 2 OVER Macro V04-00 


-SBTTL UNIT INITIALIZATION ROUTINE 


a 
+ 


DO_UNIT_INIT = UNIT INITIALIZATION ROUTINE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE READIES THE RB02/RB80 UNITS FOR I/O OPERATIONS. 
THE OPERATING SYSTEM CALLS THIS ROUTINE: 
T SYSTEM STARTUP 


° DURING DRIVER LOADING 
= DURING RECOVERY FROM POWER FAILURE 


INPUTS: 
R4 - CSR ADDRESS (CONTROLLER STATUS ere 
RS - UCB ADDRESS (UNIT CONTROL BLOCK) 

OUTPUTS: 


THE DRIVE 1s RESET, UCB FIELDS Ane INITIALIZED, AND THE 
ROUT! NE WAITS FOR R ONL INE UNITS TO SPIN UP. REGISTERS 
EXCEPT RO-R3 ARE PRESERVED. RB80'S ARE DIFFERENTIATED FROM 
RBO2 UNITS FOR UCB INITIALIZATION PURPOSES 


A PERMANENT BUFFERED DATAPATH AND A PERMANENT SET OF MAP 
REGISTERS ARE AL LLOCATED ON THE FIRST CALL TO THIS ROUTINE. 
ON SUCESSIVE ENTRYS, THE CALLS TO ALLOCATE RESOURCES ARE 
IGNORED BY THE. SYSTEM. 


a 


GET CURRENT DRIVE STATUS AND RESET DRIVE 


MOVZWL UCBSW_STS(R5),.R 


R3 
BICW #uC cBSA,O NL INE UCBSM_VALID,- TASSUME OF FLINE/ INVALID 


DRIVER. SRCIJDQDRIVER.MAR; 1 


;RBO2/RB80 UNIT INITIALIZATION 


SAVE CURRENT UNIT STATUS 


ust TS<RS) 3 
GETUNIT © :LOAD UNIT NUMBER IN R2 
BSBB po wAlt sWAIT Aa? CONTROLLE 
BLB RO,50 SBRANCH IF CONTROLLER BUSY 
BSBW DQ_RESET GET STATUS AND RESET DRIVE 
BLBC RO; 50$ :BRANCH IF TIMEOUT OR OPI 


$ WAIT FOR ONLINE UNITS TO SPIN UP 


BBC - #UCBSV_VALID,R3,40$ :BYPASS SPINUP WAIT IF 
ie, VALID BEFORE POWER 
10S: BITE — #RB_CS_M_DRDY,RB_CS(RA) i 1S DRIVE READY? 
BNEG 30 BRANCH IF READ 
JSB ss G* EXE SPWRTIMCHK TS MAX TIME EXCEEDED? 
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BLBS RO 10$ :1F LBS - STILL MO 
BRB 40$ ‘POWER UP Whe EXCEEDED 
308: I su #UCBSM_VALID,UCB$W_STS(RS) :SET UCB STATUS VOLUME 
408: 1S suchen “ONLINE ,UCBSO_STS(R5) [SET UCB STATUS VOLUME 
8SBB LASSIFY SCLASSIFY DRIV 
: ALLOCATE A PERMANENT BUFFERED DATAPATH. (ON A VAX730 ALL. DATAPATHS 
; ARE DIRECT. IT IS ALLOCATED HERE ONLY OUT OF CONVENTION 
$0$: § REQDPRNW ;REQUEST A PATH == NO WAIT 
BLBS RO, 55$ SBRANCH IF SUCCESSFUL 
BUG CHECK UBRAPEXCED FATAL SSERIOUS PROBLEM 
55$: movC  uces (R55 AR [FETCH CRB ADDRESS 
BBSS AVEC oF otk. *LOCK DATA PATH 


CRBSL nppATMLotK, “DATAPATHRI) 058 zeeeIN THE CRB 


atereere ENOUGH PERMANENT MAP REGISTERS TO HOLD THE LARGEST POSSIBLE 
3 DATA TRANSFER. sect NEITHER THE RBO2 OR RBBO SUPPORT SPIRALLING THE 
3 LARGEST TRANSFER IS A SINGLE TRACK 


3 eee BLOCKS PER TRACK) + 
CIN CASE TRANSFER egy oF — BOUND) + 
:. CFOR INVALID SENTINAL PAGE) 


34 PERMANENTLY ALLOCATED MAP REGISTERS 


Gren Oe Oe Oe Oe te 
ww 
ora) 


MOVL #34,R3 734 MAP REGISTERS NEEDED 
JSB G* 16CS$ALOUBAMAPN sREQUEST THEM 
BLBS 0,678 sBRANCH IF SUCCESSFUL 
BUG_CHECK UBMAPEXCED, FATAL ‘SERIOUS PROBLEM 

67$: MOVE UcBSL CRB(RS) Pu :FETCH CRB ADDRESS 
BBSS #vVECSU_M LOCK TH 

ee CRBSL “INtDSveC$u apapregci) 758" s..eIN THE CRB 
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RE TIME wrotth 
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-SBTTL ORIVE CLASSIFICATION ROUTINE 


: 00. CLASSIFY = DRIVE CLASSIFICATION ROUTINE 
FUNCTIONAL DESCRIPTION: 


THIS pour IS CALLED TO CLASSIFY THE DRIVE TYPE AND INITIALIZE 
THE UCB FEILDS. IT IS CALLED AT DRIVE INIT TIME, AND FOLLOWING AN 


4 UNEXPECT INTERRUPT. 

INPUTS: 

7? = ADDRESS OF DEVICE CONTROL STATUS REGISTER (CSR) 
, RS - ADDRESS OF UNIT CONTROL BLOCK (UCB) 

4 OUTPUTS: 


RO-R2 DESTROYED 
THE UCB FEILDS ARE INITIALIZED 


Q_CLASSIFY: DRIVE CLASSIFICATION ROUTINE 


ASSUME THAT SECTORS, TRACKS, AND CYLINDERS FEILDS ARE CONTAINED IN 
UCBSL_DEVDEPEND 


ASSUME UCBSB_SECTORS £0 UCBSL_DEVDEPEND 
ASSUME UCBSB-TRACKS EQ UCBS$L~DEVDEPEND+1 
ASSUME UCBSW"CYLINDERS EQ ucBst “DEVDEPEND+2 


ry: 
F 
5 
5 
‘ 
5 


ASSUME ITS AN RBO2 AND INITIALIZE ACCORDINGLY 


MOvB #oTs <gabse cose. DE VTYPE (RS) :SET RBO2 DEVICE TYPE AND 
MOVL a= >+ . 7 ;LOAD SECTORS*TRACKS*CYL INDERS 


uc BSL VOEPEND(R IN ucB 
mOVZUL Be =2e8) 135 >, UCBSL_MAXBLO 208i BYTE) BLOCKS PER SPINDLE 


41 AS. 12 
02000228 8F 


05 oF 
nc? aa S88 
AS 


32 


CK(RS) 
1 MOVL #°X24642002,UCBSL-MEDIA_ID(R5) SET MEDIA IDENT "DQ RBO2" 
; BISW2  #UCBSM_NOCNVRT, UCBSu. DEVSTS(R5) :DISABLE LOG TO PHYS CONV. 
GETUNIT Aa UNIT NUMBER IN 
FEFE , BSBW © DQ_READHOR TREAD HEADER TO SYNCRONIZE UCODE 
64 04000000 af ¢ BITL #RB_CS_M_TYP,RB_CS(R4) :TEST DRIVE TYPE 
2 BEQL 4 «=s_-30 [BRANCH IF AN RBO2 
41 a5 13 3 mOVB sols RBS 0,ucese DEVTVPE (RS) :SET RB8O DEVICE TYPE AND 
O22FOE1F BF 9 MOVL #<31%<14 9 [LOAD SECTORS*TRACKS*CYLINDERS 
64 AS UCese bE i Nee aS 3. NTO uCcB 
9080 ro} 900 ar f j MOVL #<319T4*559> “UCBSL MA MAXBLOCK (RS) ($12 BYTE) BLOCKS PER SPINDLE 
c ¢5 464 50 BF MOVL  #°X24642050,0CB A_ID(RS) :SET MEDIA IDENT "DQ RBBO" 
A 3 BICw2 #UCBSM_NOCNVRT, stase. pe oses RS) ENABLE LOG TO PHYS CONV. 
§ 30$: RSB 
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«SBTTL CONTROLLER INITIALIZATION ROUTINE 


o 
> 


FUNCTIONAL DESCRIPTION: 


AUTOCONF IGURE 


- DURING BRIVE 
INPUTS: 
RS - CSR ADDRESS 
R5 - IDB ADDRESS 
R6 = DDB ADDRESS 
R8 - CRB ADDRESS 
ALL INTERRUPTS ARE LOC 


OUTPUTS: 
IDBSL_CSR 


DQ_RB730_INIT: 
ASSUME ADPSL_CSR EQ 0 


VL C_ADP(RS) 
— 
RSB 


RO 


a108 
*x%200(RO), IDBSL_CSR(RS) 


THE CORRECT RB730 CSR ADDRESS IS COMPUTED. 


TILIZES A 
ING THIS CONTROLL 

PAGE ABOVE THE ADAPTOR CSR (THE DE 
ARE ACTUALLY IN THE ADAPTOR CONTROL REGISTER REGION) 


THE oreantiee + A cabs THIS ROUTINE: 
T SYSTEM STARTUP 


ei ~ UNIBUS CSR ADDRES 


LOADING 
- DURING RECOVERY FROM POWER FAILURE 


UPT ws 


- CORRECT RB730 CSR ADDRESS 


CONTROLLER INITIALIZATION 


sFETCH ADAPTOR CSR ADDRESS 
STORE CSR IN IDB 


Pa 48 
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“DODRIVER = VAX/VMS RB730:RBO2/RB8O DISK DRIVER 15-SEP-19 :49:22 VAX/VMS M v04-00 Page 
itd NIT DELIVERY ROUTINE - etsy $9; :12: 4 YORIVER. SR SRC IDODRIVER.MAR: 1 
908 2157 .SBTTL UNIT DELIVERY ROUTINE 
Sop 5480 5 
908 160 ; DQ_DELIVER = UNIT DELIVERY ROUTINE 
908 18¢ + FUNCTIONAL DESCRIPTION: 
90B 2164 : THIS ROUTINE IS CALLED BY AUTOCONFIGURE TO TEST FOR A UNITS 
908 165 + PRESCENCE OR ABSCENCE ON THE CONTROLLER 
908 187 + INPUTS: 
9D8 185 : RO-R3 =~ SCRA 
998 2170 ; R4 . ADDRESS OF ADAPTOR CONF IGURATION REGISTER 
908 2171: RS = UNIT NUMBER TO BE CONFIGURED 
908 178 : Rb - ADDRESS OF CONF TEURATION CONTROL REGISTER 
906 2173: R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK (ACF BLOCK) 
908 1% : RB = ADDRESS OF ADAPTOR CONTROL BLOCK 
9B 176 ; ACFSB_CUNIT(R7) = UNIT NUMBER TO BE TESTED 
0908 178 > OUTPUTS: 
0908 180 : RO - LBS IF UNIT FOUND, LBC IF NO SUCH UNIT 
09DB 2181 : 
bon S188 
; ie 184 DO_DELIVER: | “ UNIT DELIVERY ROUTINE 
54 0200 C6 OF 3pB 188 MOVAE “¥200(R6) RS ; COMPUTE ADDRESS OF CSR 
52 D4 O9E2 2187 CLRL [PREPARE FOR UNIT NUMBER 
52. 02 «08 3g FO 0964 2188 INSV R5,#8,#2,R2 SLOAD DRIVE SELECT BITS 
FEF5 30 0969 2189 BSBW = »DQ WAIT SWAIT FOR CONTROLLER READY 
03 50 +4 9EC 2190 BLBC RO; 50$ sBRANCH IF CONTROLLER BUSY 
FECF 30 O3Er 191 BSBW =: DQ. GETSTS :ATTERPT Get st aT us. ooo 
64 00000040 ef cA 03t 3 198 50$: ICL #RB CS MAIE, »RB_CS(R4) DISABLE IN INTERRUPTS 
05 O9FC 2195 RSB :RETURN STATUS Fon CALLER 
O9FD 2196 
O9FD 2197 


| 
| 
| 
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Rivet REGISTER DUMP ROUTINE mi iets 88:13:46 LORIVER. SRE IOODRIVER.MAR: 1 . 
9FD 2199 .SBTTL REGISTER DUMP ROUTINE 
orp ” 
3D ; DQ_REGDUMP = REGISTER DUMP ROUTINE 
3D 4 t FUNCTIONAL DESCRIPTION: 
FD 6 : THIS ROUTINE IS CALLED TO SAVE THE DEVICE REGISTERS AND UBA RESOURCE 
FD ; REGISTERS IN A SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERROR 
FD 5 ; LOGGING ROUTINE AND FROM THE DIAGNOSTIC BUFFER FILL ROUTINE. 
3D 10 : INPUTS: 
FD 1g : RO - ADDRESS OF REGISTER SAVE BUFFER 
9FD 2213 : RG = ADDRESS OF DEVICE CONTROL STATUS REGISTER (CSR) 
3ED 1% RS - ADDRESS OF UNIT CONTROL BLOCK (UCB) 
O9FD 1 : OUTPUTS: 
O9FD 18 ; DEVICE AND UBA REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 
O9FD 2219 ; RO CONTAINS THE ADDRESS OF THE NEXT EMPTY LONGWORD IN THE BUFFER. 
O9FD 0 ; ALL REGISTERS EXCEPT R1 AND R2 ARE PRESERVED. 
td 
O9FD 4 DOQ_REGDUMP: ;REGISTER DUMP ROUTINE 
80 OD 00 O9FD 2225 MOVL § #<RB_NUM_REGS+6>,(RO)+ INSERT NUMBER O ISTERS 
51 O0CC C5 DE 0A00 26 MOVAL UCBSC_DQ~CS(RS),R1 'GET ADDRESS OF SAVED DEVICE REGISTERS 
52.05 9A OAD MOVZBL #<RB_NUM"REGS-2>,R2 [GET NUMBER OF DEVICE REGISTERS TO MOVE 
80 81 DO OA08 8 10$:  MOVL  (R1)%,(RO)+ [DUMP REGISTER IN BUFFER 
FA 52. OF OA0B 3 SOBGTR R2,10$ SIF GTR = STILL MORE TO MOVE 
80 0004 ¢5 3c OAD 1 MOVZWL UCBS$W_EC1(R5),(RO)+ sECC POSITION REGISTER 
80 0006 C5 3¢ ai 3¢ MOVZWL UCBSW7EC2(R5).(RO)+ TECC PATTERN REGISTER 
52 24 AS 0 Oal 3 OVL UCBSL_CRB(RS) ,R2 sFETCH CRB ADDRESS 
BO 37 A2 9A OAI 5 MOVZBL CRBSL~INTD+VECSB_DATAPATH(R2),(RO)+ ;DUMP DATAPATH NUMBER 
0 04 OA é CLRL (RO)+ :DUMP DATAPATH REGISTER (ALWAYS 0) 
80 81 DO OA MOVL  (R1)#,(RO)+ [DUMP FINAL MAP REGISTER 
80 81 OD A : MOVL (R1)+.(RO)+ [DUMP PREVIOUS MAP REGISTER 
A é 40 ASSUME VECSB_NUMREG EQ VECSW_MAPREG+2 :ASSUME START AND NUMBER CONTIG 
80 34 A2 00 A : 41 MOVL  CRBSL-INTD+VECSW_MAPREG(R2) ,(ROS+;DUMP MAP REGISTERS 
80 O00F6 CS 00 A C “§ MOVL UCB$L_DQ_PREVDA(RS),(RO)* ;DUMP PREVIOUS DISK ADDRESS 
05 A 1 45 RSB RETURN 
oA : 23 DQ_END: sADDRESS OF LAST LOCATION IN DRIVER 
A 48 END 


~w 


DQDRIVER 
Symbol table 


ACP T 
ACPSREADBLK 
ACPSWRITEBLK 
ADPSL_CSR 
APPLY ECC 
ATS 


F [READHEAD 
COF =READTRACD 


ELEASE 
DE =RETCENTER 
COF ~STARTSPNDL 
F “UNLOAD 


COF WRITE CHECK 
COF “WRITEDATA 
CDF “WRI TEHEAD 
fr cue ITETRACKD 
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Symbol table -SEP-1984 83:13: 8 LORIVER. SR $DaD DRIVER.MAR;1 “ (1) 
UCBSW_OF FSET a & 
UCBSU"STS ; $4 
Matte UNIT = 4 
wae ta 
verse DATAPATH = 
s 
VECSL_ADP = 1 
$._108 = 8 
VECSL_INITIAL = f 
SL_UNITINIT * 
VECSS_MAPREG s : oF 
vECSv— _MAPLOCK = fF 
VECSV_MAPRE = 00 ; 39 
VECSV_PATHLOCK = 0000000 
VECSW_MAPR = 00000010 
WRITECHECK OOOO1FS R 03 
WRITECHK OOOOSEE R 03 
WRITEDATA OOO01FD R 03 
WRITEHEAD ese dha R 03 
WRITETRACKD QO0001E7 R 03 
XFER Q00004DA R 03 
_TAPSVAL = 00000044 
$m omc ema nc am ooo we + 
! Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
' 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS ~- LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABSS OOOOOOFA ¢ 250.) 01 -) NOPIC USR CON ABS LCL RD WRT NOVEC BYTE 
$$$105_PROLOGUE 4 44 4 € 130.) @e ¢ ¢ ) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115-DRIVER 00000A ( 2610.) 03 ¢ ) NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC LONG 
pea rmaoranenearaomancasaooea nae 
! ; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 0:8 00.9 0:00: 1.69 
Command processing 115 0:00:00. 36 5.99 
Pass 1 634 :00: $5 3: 96-98 
—_—« iable sort 389 200: £38 0:00; 31°10 
Symbol table output 2 0:00:00.21 :00:01.35 
Psect synopsis output :00:00. ‘ 0:00:00.02 
Cross-reference output :00:00. 0: 9: 98 
Assembler run totals 1191 :00:28.41 0:03:17. 


ihe ue rking set was 2550 pages. 

368 bytes (325 pages) of virtual memory were used buffer the intermediate c 
— were pages of symbol table space ucings eof hold 2370 non-local and ie" local symbols. 
g 48 source » AR. were read in Pass 1, producin object records in Pass 2. 


pages of virtual memory were used to detine & macros. 
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! Macro Library statistics ! 


som acennr sone enwnanmemaaemmsnae $ 


Macro library name Macros defined 
-5255S$DUA SYS.OBJJLIB.MLB;1 33 
Hitttns § ESysiie orm ET.MLB;2 11 

TOTALS (all Libraries) 44 


2514 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DQDRIVER/OBJ=OBJ$:DQDRIVER MSRC$:DQDRIVER/UPDATE=(ENHS$:DQDRIVER) +EXECMLS/LIB 
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